LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-26 07:02:14 +02:00
Code Issues Releases Wiki Activity

reactivated microlists

Browse Source
This commit is contained in:
Yann Garniron 2016-06-14 09:22:32 +02:00
parent d296285946
commit 9b23430872
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
plugins/mrcepa0/dressing.irp.f
View File

@ -28,7 +28,7 @@ use bitmasks
call apply_hole(psi_det_generators(1,1,gen), hh_exists(1, h), mask, ok, N_int)
if(.not. ok) cycle
omask = 0_bit_kind
!if(hh_exists(1, h) /= 0) omask = mask
if(hh_exists(1, h) /= 0) omask = mask
n = 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)