From 4fc27c474eba55177f3122bbb6fe86b2277ccc7a Mon Sep 17 00:00:00 2001 From: Jeff Hammond Date: Wed, 12 Jun 2024 09:38:43 +0300 Subject: [PATCH] fix bug Signed-off-by: Jeff Hammond --- src/tce/ccsd/icsd_t2.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/tce/ccsd/icsd_t2.F b/src/tce/ccsd/icsd_t2.F index 245018543f..1aa9f88d4b 100644 --- a/src/tce/ccsd/icsd_t2.F +++ b/src/tce/ccsd/icsd_t2.F @@ -9332,7 +9332,7 @@ SUBROUTINE icsd_t2_8_x(d_a,k_a_offset, if (e_a.ne.0) call errquit("MA a",dimhhpp,MA_ERR) allocate(f_b(1:dimpppp),stat=e_b) if (e_b.ne.0) call errquit("MA b",dimpppp,MA_ERR) - allocate(f_c(1:dimhhpp,2),stat=e_c) + allocate(f_c(1:dimhhpp,0:1),stat=e_c) if (e_c.ne.0) call errquit("MA c",dimhhpp,MA_ERR) nbh = 0