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