fix bug

Signed-off-by: Jeff Hammond <[email protected]>
jeffhammond · Jun 12, 2024 · 4fc27c4 · 4fc27c4
1 parent 16cd7b1
commit 4fc27c4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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