From 74e559c85ad258b05c66267c41f55f1fe6a8ca99 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Tue, 7 Aug 2018 18:02:58 +0200 Subject: [PATCH] Fixed full_ijkl_bitmask --- src/Bitmask/bitmasks.irp.f | 4 ++-- src/Integrals_Bielec/mo_bi_integrals.irp.f | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Bitmask/bitmasks.irp.f b/src/Bitmask/bitmasks.irp.f index f0caea96..fcfe03c8 100644 --- a/src/Bitmask/bitmasks.irp.f +++ b/src/Bitmask/bitmasks.irp.f @@ -22,9 +22,9 @@ BEGIN_PROVIDER [ integer(bit_kind), full_ijkl_bitmask, (N_int) ] END_DOC integer :: i,j,k - full_ijkl_bitmask = 0_bit_kind + k=0 do j=1,N_int - k=0 + full_ijkl_bitmask(j) = 0_bit_kind do i=0,bit_kind_size-1 k=k+1 if (mo_class(k) /= 'Deleted') then diff --git a/src/Integrals_Bielec/mo_bi_integrals.irp.f b/src/Integrals_Bielec/mo_bi_integrals.irp.f index 9d884456..e7fb815a 100644 --- a/src/Integrals_Bielec/mo_bi_integrals.irp.f +++ b/src/Integrals_Bielec/mo_bi_integrals.irp.f @@ -240,7 +240,7 @@ subroutine add_integrals_to_map(mask_ijkl) call bitstring_to_list( mask_ijkl(1,3), list_ijkl(1,3), n_k, N_int ) call bitstring_to_list( mask_ijkl(1,4), list_ijkl(1,4), n_l, N_int ) character*(2048) :: output(1) - print*, 'i' + print *, 'i' call bitstring_to_str( output(1), mask_ijkl(1,1), N_int ) print *, trim(output(1)) j = 0