From 89aaf304603d24faec884be10559c1a4f07cd3c3 Mon Sep 17 00:00:00 2001 From: eginer Date: Tue, 5 Mar 2024 19:18:04 +0100 Subject: [PATCH] removed stupid print in fci --- src/cipsi/selection.irp.f | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/cipsi/selection.irp.f b/src/cipsi/selection.irp.f index 59cfdff8..ae84f84e 100644 --- a/src/cipsi/selection.irp.f +++ b/src/cipsi/selection.irp.f @@ -889,9 +889,9 @@ subroutine fill_buffer_$DOUBLE(i_generator, sp, h1, h2, bannedOrb, banned, fock_ w *= dsqrt(dble(n)) endif - if(dabs(w).gt.1.d-5)then - print*,w,buf%mini - endif +! if(dabs(w).gt.1.d-5)then +! print*,w,buf%mini +! endif if(w <= buf%mini) then call add_to_selection_buffer(buf, det, w)