mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-23 03:53:29 +01:00
fix csf
This commit is contained in:
parent
4c69fa2010
commit
547e6e8823
@ -1155,7 +1155,7 @@ END_PROVIDER
|
|||||||
!end do
|
!end do
|
||||||
|
|
||||||
if(.NOT. pqExistsQ) then
|
if(.NOT. pqExistsQ) then
|
||||||
tableUniqueAlphas(p,q) = .TRUE.
|
tableUniqueAlphas(pp,qq) = .TRUE.
|
||||||
!print *,p,q
|
!print *,p,q
|
||||||
!call debug_spindet(Jsomo,1)
|
!call debug_spindet(Jsomo,1)
|
||||||
!call debug_spindet(Jdomo,1)
|
!call debug_spindet(Jdomo,1)
|
||||||
|
Loading…
Reference in New Issue
Block a user