LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-11-04 21:24:02 +01:00
Code Issues Releases Wiki Activity

mrcc_sto bug for multistate

Browse Source
This commit is contained in:
Yann Garniron 2018-02-22 14:05:45 +01:00
parent b177ee3f51
commit 381c985999
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
plugins/mrcc_sto/mrcc_sto.irp.f
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