diff --git a/src/bitmask/bitmasks.irp.f b/src/bitmask/bitmasks.irp.f index 91617397..27c7dc84 100644 --- a/src/bitmask/bitmasks.irp.f +++ b/src/bitmask/bitmasks.irp.f @@ -27,9 +27,7 @@ BEGIN_PROVIDER [ integer(bit_kind), full_ijkl_bitmask, (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 - full_ijkl_bitmask(j) = ibset(full_ijkl_bitmask(j),i) - endif + full_ijkl_bitmask(j) = ibset(full_ijkl_bitmask(j),i) if (k == mo_num) exit enddo enddo