mirror of
https://github.com/LCPQ/quantum_package
synced 2024-10-19 06:21:47 +02:00
reactivated microlists
This commit is contained in:
parent
d296285946
commit
9b23430872
@ -28,7 +28,7 @@ use bitmasks
|
|||||||
call apply_hole(psi_det_generators(1,1,gen), hh_exists(1, h), mask, ok, N_int)
|
call apply_hole(psi_det_generators(1,1,gen), hh_exists(1, h), mask, ok, N_int)
|
||||||
if(.not. ok) cycle
|
if(.not. ok) cycle
|
||||||
omask = 0_bit_kind
|
omask = 0_bit_kind
|
||||||
!if(hh_exists(1, h) /= 0) omask = mask
|
if(hh_exists(1, h) /= 0) omask = mask
|
||||||
n = 1
|
n = 1
|
||||||
do p=hh_shortcut(h), hh_shortcut(h+1)-1
|
do p=hh_shortcut(h), hh_shortcut(h+1)-1
|
||||||
call apply_particle(mask, pp_exists(1, p), buf(1,1,n), ok, N_int)
|
call apply_particle(mask, pp_exists(1, p), buf(1,1,n), ok, N_int)
|
||||||
|
Loading…
Reference in New Issue
Block a user