mirror of
https://github.com/LCPQ/quantum_package
synced 2024-12-25 05:43:47 +01:00
Fixed full_ijkl_bitmask
This commit is contained in:
parent
9dd31d4190
commit
74e559c85a
@ -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
|
||||
do j=1,N_int
|
||||
k=0
|
||||
do j=1,N_int
|
||||
full_ijkl_bitmask(j) = 0_bit_kind
|
||||
do i=0,bit_kind_size-1
|
||||
k=k+1
|
||||
if (mo_class(k) /= 'Deleted') then
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user