10
0
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:
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
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