From 0dca6cfde4ba658518637c2f42ecb2e45c04de6a Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Fri, 31 May 2024 20:20:04 +0200
Subject: [PATCH] block size in cholesky

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

diff --git a/src/ao_two_e_ints/cholesky.irp.f b/src/ao_two_e_ints/cholesky.irp.f
index 09d86679..5a44571c 100644
--- a/src/ao_two_e_ints/cholesky.irp.f
+++ b/src/ao_two_e_ints/cholesky.irp.f
@@ -186,7 +186,7 @@ END_PROVIDER
 
          if (mem > qp_max_mem) then
            s = s*2.d0
-           block_size = block_size / 2
+           block_size = max(block_size / 2, 1)
          else
            exit
          endif