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