mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-01 21:53:40 +02:00
Fixed act_bitmask.
This commit is contained in:
parent
5622b9790d
commit
bb0c3e391c
@ -875,7 +875,7 @@ use bitmasks
|
|||||||
ndiffDOMO = 0
|
ndiffDOMO = 0
|
||||||
nxordiffSOMODOMO = 0
|
nxordiffSOMODOMO = 0
|
||||||
do ii=1,N_int
|
do ii=1,N_int
|
||||||
diffDOMO = IEOR(Icfg(ii,2),iand(act_bitmask(ii,1),psi_configuration(ii,2,k)))
|
diffDOMO = IEOR(Icfg(ii,2),iand(act_bitmask(ii,2),psi_configuration(ii,2,k)))
|
||||||
xordiffSOMODOMO = IEOR(diffSOMO,diffDOMO)
|
xordiffSOMODOMO = IEOR(diffSOMO,diffDOMO)
|
||||||
ndiffDOMO += POPCNT(diffDOMO)
|
ndiffDOMO += POPCNT(diffDOMO)
|
||||||
nxordiffSOMODOMO += POPCNT(xordiffSOMODOMO)
|
nxordiffSOMODOMO += POPCNT(xordiffSOMODOMO)
|
||||||
@ -1221,7 +1221,7 @@ END_PROVIDER
|
|||||||
ndiffDOMO = 0
|
ndiffDOMO = 0
|
||||||
nxordiffSOMODOMO = 0
|
nxordiffSOMODOMO = 0
|
||||||
do ii=1,N_int
|
do ii=1,N_int
|
||||||
diffDOMO = IEOR(Icfg(ii,2),iand(act_bitmask(ii,1),psi_configuration(ii,2,k)))
|
diffDOMO = IEOR(Icfg(ii,2),iand(act_bitmask(ii,2),psi_configuration(ii,2,k)))
|
||||||
xordiffSOMODOMO = IEOR(diffSOMO,diffDOMO)
|
xordiffSOMODOMO = IEOR(diffSOMO,diffDOMO)
|
||||||
ndiffDOMO += POPCNT(diffDOMO)
|
ndiffDOMO += POPCNT(diffDOMO)
|
||||||
nxordiffSOMODOMO += POPCNT(xordiffSOMODOMO)
|
nxordiffSOMODOMO += POPCNT(xordiffSOMODOMO)
|
||||||
|
Loading…
Reference in New Issue
Block a user