10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-25 13:53:49 +01:00

mrcc_sto bug for multistate

This commit is contained in:
Yann Garniron 2018-02-22 14:05:45 +01:00
parent b177ee3f51
commit 381c985999

View File

@ -148,7 +148,6 @@ subroutine dress_with_alpha_buffer(delta_ij_loc, minilist, n_minilist, alpha, ip
dIK(i_state) = dij(i_I, idx_non_ref_from_sorted(idx_alpha_(k_sd,iproc)), i_state) dIK(i_state) = dij(i_I, idx_non_ref_from_sorted(idx_alpha_(k_sd,iproc)), i_state)
if(dIK(i_state) /= 0d0) then if(dIK(i_state) /= 0d0) then
ok2 = .true. ok2 = .true.
exit
endif endif
enddo enddo
if(.not. ok2) cycle if(.not. ok2) cycle