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:
parent
e0ce8d026b
commit
dd8ff9854a
@ -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'
|
||||
|
Loading…
Reference in New Issue
Block a user