From ff2a0330d7cc009457a44670684cfbb51519a199 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Sat, 19 Sep 2015 01:53:23 +0200 Subject: [PATCH] Compiles now --- src/Determinants/slater_rules.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Determinants/slater_rules.irp.f b/src/Determinants/slater_rules.irp.f index b77276a4..be847472 100644 --- a/src/Determinants/slater_rules.irp.f +++ b/src/Determinants/slater_rules.irp.f @@ -960,7 +960,7 @@ subroutine get_excitation_degree_vector(key1,key2,degree,Nint,sze,idx) integer, intent(out) :: degree(sze) integer, intent(out) :: idx(0:sze) - integer :: i,l,d + integer :: i,l,d,m ASSERT (Nint > 0) ASSERT (sze > 0)