mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-26 06:21:45 +02: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
|
END_DOC
|
||||||
|
|
||||||
integer :: i,j,k
|
integer :: i,j,k
|
||||||
full_ijkl_bitmask = 0_bit_kind
|
|
||||||
do j=1,N_int
|
|
||||||
k=0
|
k=0
|
||||||
|
do j=1,N_int
|
||||||
|
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
|
||||||
|
Loading…
Reference in New Issue
Block a user