From 374cae3754e777a902a108d94cc83c8f9f6e83fd Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Tue, 29 Jun 2021 15:56:10 +0200
Subject: [PATCH] keep svd coefs

---
 src/svd.irp.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/svd.irp.f b/src/svd.irp.f
index 1655bc5..edcdabc 100644
--- a/src/svd.irp.f
+++ b/src/svd.irp.f
@@ -22,7 +22,7 @@ BEGIN_PROVIDER [ integer, n_svd_coefs ]
    if (psi_svd_coefs(i) < ci_threshold) then
      exit
    endif
-   print *,  i, psi_svd_coefs(i)
+!  print *,  i, psi_svd_coefs(i)
    n_svd_coefs = n_svd_coefs+1
  enddo
 END_PROVIDER