From c93481482136d346393d2e5064ac7645dbbdcdb5 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Wed, 10 Dec 2014 16:06:50 +0100 Subject: [PATCH] Correct again bug in occ_pattern --- src/Dets/occ_pattern.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Dets/occ_pattern.irp.f b/src/Dets/occ_pattern.irp.f index 5de21ec4..07bcd89b 100644 --- a/src/Dets/occ_pattern.irp.f +++ b/src/Dets/occ_pattern.irp.f @@ -207,7 +207,7 @@ end endif enddo j+=1 - if (j>=N_det) then + if (j>N_det) then exit endif enddo