10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-23 04:43:50 +01:00

Fixed CSC

This commit is contained in:
Anthony Scemama 2017-04-18 00:18:59 +02:00
commit 3b2d23c745

View File

@ -941,7 +941,6 @@ END_PROVIDER
psi_det_alpha_unique, idx0, psi_det_alpha_unique(1,i), N_int, & psi_det_alpha_unique, idx0, psi_det_alpha_unique(1,i), N_int, &
N_det_alpha_unique, s, j) N_det_alpha_unique, s, j)
singles_alpha_csc_idx(i+1) = int(j,8) singles_alpha_csc_idx(i+1) = int(j,8)
enddo
!$OMP END DO !$OMP END DO
deallocate(s) deallocate(s)
!$OMP END PARALLEL !$OMP END PARALLEL