From 40cf14a5e54f6697a54f59c72953c76e0aa3d696 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Wed, 18 Nov 2015 00:29:52 +0100 Subject: [PATCH] Memory bug also in S2 --- src/Determinants/s2.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Determinants/s2.irp.f b/src/Determinants/s2.irp.f index 9a658a05..6da7b8ec 100644 --- a/src/Determinants/s2.irp.f +++ b/src/Determinants/s2.irp.f @@ -122,7 +122,7 @@ subroutine get_s2_u0(psi_keys_tmp,psi_coefs_tmp,n,nmax,s2) integer :: sh, sh2, ni, exa, ext, org_i, org_j, endi, pass double precision :: davidson_threshold_bis - allocate (shortcut(0:n+1), sort_idx(n), sorted(Nint,n), version(Nint,n)) + allocate (shortcut(0:n+1), sort_idx(n), sorted(N_int,n), version(N_int,n)) s2 = 0.d0 davidson_threshold_bis = threshold_davidson call sort_dets_ab_v(psi_keys_tmp, sorted, sort_idx, shortcut, version, n, N_int)