LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 03:23:29 +01:00
Code Releases Activity

Removed debug print

Browse Source
This commit is contained in:
Anthony Scemama 2021-04-27 00:37:09 +02:00
parent e0ce8d026b
commit dd8ff9854a
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/cipsi/run_pt2_slave.irp.f
View File

@ -221,9 +221,6 @@ subroutine run_pt2_slave_large(thread,iproc,energy)
if (n_tasks == 0) exit if (n_tasks == 0) exit
call sscanf_ddd(task, subset, i_generator, N) call sscanf_ddd(task, subset, i_generator, N)
!$OMP CRITICAL
print *, ':task:', subset, i_generator, N, pt2_F(i_generator)
!$OMP END CRITICAL
if( pt2_F(i_generator) <= 0 .or. pt2_F(i_generator) > N_det ) then if( pt2_F(i_generator) <= 0 .or. pt2_F(i_generator) > N_det ) then
print *, irp_here print *, irp_here
stop 'bug in selection' stop 'bug in selection'