LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-07 22:13:38 +01:00
Code Releases Activity

Additional check in run_selection_slave

Browse Source
This commit is contained in:
Anthony Scemama 2022-05-13 10:11:17 +02:00
parent bcb334afd2
commit 1f81de5bd4
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/cipsi/run_selection_slave.irp.f
View File

@ -61,10 +61,14 @@ subroutine run_selection_slave(thread,iproc,energy)
if (N /= buf%N) then if (N /= buf%N) then
print *, 'N=', N print *, 'N=', N
print *, 'buf%N=', buf%N print *, 'buf%N=', buf%N
print *, 'bug in ', irp_here print *, 'In ', irp_here, ': N /= buf%N'
stop '-1' stop -1
end if end if
end if end if
if (i_generator > N_det_generators) then
print *, 'In ', irp_here, ': i_generator > N_det_generators'
stop -1
endif
call select_connected(i_generator,energy,pt2_data,buf,subset,pt2_F(i_generator)) call select_connected(i_generator,energy,pt2_data,buf,subset,pt2_F(i_generator))
endif endif