mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-22 19:43:32 +01:00
Fix iand for csf.
This commit is contained in:
parent
347f716294
commit
1fbbaf58a5
@ -240,7 +240,7 @@ end subroutine get_phase_qp_to_cfg
|
|||||||
! initialization
|
! initialization
|
||||||
psi_coef_config = 0.d0
|
psi_coef_config = 0.d0
|
||||||
DetToCSFTransformationMatrix(0,:,:) = 1.d0
|
DetToCSFTransformationMatrix(0,:,:) = 1.d0
|
||||||
do i = 2-iand(MS,1), NSOMOMax,2
|
do i = 2-iand(MS,1_8), NSOMOMax,2
|
||||||
Isomo = IBSET(0_8, i) - 1_8
|
Isomo = IBSET(0_8, i) - 1_8
|
||||||
! rows = Ncsfs
|
! rows = Ncsfs
|
||||||
! cols = Ndets
|
! cols = Ndets
|
||||||
|
Loading…
Reference in New Issue
Block a user