From 7af4c3705bda3fa4e14ea5a039f55fcc9f5da06d Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Wed, 12 Apr 2017 16:07:29 +0200 Subject: [PATCH] Fixed travis --- plugins/CAS_SD_ZMQ/selection.irp.f | 2 +- plugins/mrcc_selected/ezfio_interface.irp.f | 2 +- src/Determinants/spindeterminants.irp.f | 10 +++++----- 3 files changed, 7 insertions(+), 7 deletions(-) diff --git a/plugins/CAS_SD_ZMQ/selection.irp.f b/plugins/CAS_SD_ZMQ/selection.irp.f index f4b219d4..d9b8c67d 100644 --- a/plugins/CAS_SD_ZMQ/selection.irp.f +++ b/plugins/CAS_SD_ZMQ/selection.irp.f @@ -677,7 +677,7 @@ subroutine fill_buffer_double(i_generator, sp, h1, h2, bannedOrb, banned, fock_d ! endif if (do_ddci) then - integer, external :: is_a_two_holes_two_particles + logical, external :: is_a_two_holes_two_particles if (is_a_two_holes_two_particles(det)) then cycle endif diff --git a/plugins/mrcc_selected/ezfio_interface.irp.f b/plugins/mrcc_selected/ezfio_interface.irp.f index 47e7cea5..54d993fe 100644 --- a/plugins/mrcc_selected/ezfio_interface.irp.f +++ b/plugins/mrcc_selected/ezfio_interface.irp.f @@ -1,6 +1,6 @@ ! DO NOT MODIFY BY HAND ! Created by $QP_ROOT/scripts/ezfio_interface/ei_handler.py -! from file /ccc/work/cont003/gen1738/scemama/quantum_package/src/mrcc_selected/EZFIO.cfg +! from file /panfs/panasas/cnt0024/cpq1738/scemama/workdir/quantum_package/src/mrcc_selected/EZFIO.cfg BEGIN_PROVIDER [ double precision, thresh_dressed_ci ] diff --git a/src/Determinants/spindeterminants.irp.f b/src/Determinants/spindeterminants.irp.f index 49a52a3b..4bb35979 100644 --- a/src/Determinants/spindeterminants.irp.f +++ b/src/Determinants/spindeterminants.irp.f @@ -628,7 +628,7 @@ subroutine get_all_spin_singles_and_doubles(buffer, idx, spindet, Nint, size_buf select case (Nint) case (1) - call get_all_spin_singles_and_doubles_1(buffer, idx, spindet, size_buffer, singles, doubles, n_singles, n_doubles) + call get_all_spin_singles_and_doubles_1(buffer, idx, spindet(1), size_buffer, singles, doubles, n_singles, n_doubles) return ! case (2) ! call get_all_spin_singles_and_doubles_2(buffer, idx, spindet, size_buffer, singles, doubles, n_singles, n_doubles) @@ -711,7 +711,7 @@ subroutine get_all_spin_singles(buffer, idx, spindet, Nint, size_buffer, singles select case (Nint) case (1) - call get_all_spin_singles_1(buffer, idx, spindet, size_buffer, singles, n_singles) + call get_all_spin_singles_1(buffer, idx, spindet(1), size_buffer, singles, n_singles) return case (2) call get_all_spin_singles_2(buffer, idx, spindet, size_buffer, singles, n_singles) @@ -787,7 +787,7 @@ subroutine get_all_spin_doubles(buffer, idx, spindet, Nint, size_buffer, doubles select case (Nint) case (1) - call get_all_spin_doubles_1(buffer, idx, spindet, size_buffer, doubles, n_doubles) + call get_all_spin_doubles_1(buffer, idx, spindet(1), size_buffer, doubles, n_doubles) return case (2) call get_all_spin_doubles_2(buffer, idx, spindet, size_buffer, doubles, n_doubles) @@ -1111,8 +1111,8 @@ subroutine get_all_spin_doubles_2(buffer, idx, spindet, size_buffer, doubles, n_ ! unique alpha determinants. ! END_DOC - integer, intent(in) :: size_buffer - integer(bit_kind), intent(in) :: buffer(2,size_buffer), idx(size_buffer) + integer, intent(in) :: size_buffer, idx(size_buffer) + integer(bit_kind), intent(in) :: buffer(2,size_buffer) integer(bit_kind), intent(in) :: spindet(2) integer, intent(out) :: doubles(size_buffer) integer, intent(out) :: n_doubles