9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-23 03:53:29 +01:00
This commit is contained in:
Yann Damour 2023-01-02 09:28:42 +01:00
parent 4c69fa2010
commit 547e6e8823

View File

@ -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)