From 8a7d12efdf3ac912e94e3df364f1397b0052ca29 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Tue, 17 Dec 2019 11:36:10 +0100
Subject: [PATCH] Fixed

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

diff --git a/src/cipsi/selection.irp.f b/src/cipsi/selection.irp.f
index 2886f4eb..e0665259 100644
--- a/src/cipsi/selection.irp.f
+++ b/src/cipsi/selection.irp.f
@@ -797,7 +797,7 @@ subroutine fill_buffer_double(i_generator, sp, h1, h2, bannedOrb, banned, fock_d
           case(6)
             w = w - coef * coef * selection_weight(istate)
 
-          case(default)
+          case default
             ! Energy selection
             w = w + e_pert * selection_weight(istate)