9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-04 19:03:28 +01:00

Removed debug print

This commit is contained in:
Anthony Scemama 2021-04-27 00:37:09 +02:00
parent e0ce8d026b
commit dd8ff9854a

View File

@ -221,9 +221,6 @@ subroutine run_pt2_slave_large(thread,iproc,energy)
if (n_tasks == 0) exit
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
print *, irp_here
stop 'bug in selection'