diff --git a/src/ao_two_e_ints/cholesky.irp.f b/src/ao_two_e_ints/cholesky.irp.f
index a7b2389f7..09131b5db 100644
--- a/src/ao_two_e_ints/cholesky.irp.f
+++ b/src/ao_two_e_ints/cholesky.irp.f
@@ -272,9 +272,10 @@
 
 
        allocate(computed(nq))
+       computed(:) = .False.
 
-!print *, 'N, rank, block_size', N, rank, block_size
 
+!print *, 'N, rank, block_size', N, rank, block_size
        !$OMP PARALLEL DEFAULT(SHARED) PRIVATE(k,p,q)
        do k=1,N
          !$OMP DO
@@ -285,7 +286,6 @@
 
          !$OMP DO
          do q=1,nq
-           computed(q) = .False.
            Ltmp_q(q,k) = L(Dset(q),k)
          enddo
          !$OMP END DO NOWAIT