10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-24 13:23:41 +01:00

Fixed full_ijkl_bitmask

This commit is contained in:
Anthony Scemama 2018-08-07 18:02:58 +02:00
parent 9dd31d4190
commit 74e559c85a
2 changed files with 3 additions and 3 deletions

View File

@ -22,9 +22,9 @@ BEGIN_PROVIDER [ integer(bit_kind), full_ijkl_bitmask, (N_int) ]
END_DOC END_DOC
integer :: i,j,k integer :: i,j,k
full_ijkl_bitmask = 0_bit_kind k=0
do j=1,N_int do j=1,N_int
k=0 full_ijkl_bitmask(j) = 0_bit_kind
do i=0,bit_kind_size-1 do i=0,bit_kind_size-1
k=k+1 k=k+1
if (mo_class(k) /= 'Deleted') then if (mo_class(k) /= 'Deleted') then

View File

@ -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,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 ) call bitstring_to_list( mask_ijkl(1,4), list_ijkl(1,4), n_l, N_int )
character*(2048) :: output(1) character*(2048) :: output(1)
print*, 'i' print *, 'i'
call bitstring_to_str( output(1), mask_ijkl(1,1), N_int ) call bitstring_to_str( output(1), mask_ijkl(1,1), N_int )
print *, trim(output(1)) print *, trim(output(1))
j = 0 j = 0