From b55866b430579fccee168b8f3178d6a6e3dffdd2 Mon Sep 17 00:00:00 2001 From: Jeff Hammond Date: Tue, 22 Oct 2024 11:16:49 +0300 Subject: [PATCH] add comment about perf --- src/tce/ccsd/ccsd_t2.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/tce/ccsd/ccsd_t2.F b/src/tce/ccsd/ccsd_t2.F index 9141281b2a..ff3b4010da 100644 --- a/src/tce/ccsd/ccsd_t2.F +++ b/src/tce/ccsd/ccsd_t2.F @@ -351,7 +351,7 @@ SUBROUTINE ccsd_t2(rtdb,d_f1,d_i0,d_t1,d_t2,d_v2, & d_i1,k_i1_offset,maxh,maxp) CALL ccsd_t2_7_3_x(d_t2,k_t2_offset,d_v2,k_v2_offset, & d_i1,k_i1_offset,maxh,maxp) - else if (ccsd_t2_7_alg.eq.3) then + else if (ccsd_t2_7_alg.eq.3) then ! not faster than 2 CALL ccsd_t2_7_1(d_v2,k_v2_offset, & d_i1,k_i1_offset) CALL ccsd_t2_7_2(d_t1,k_t1_offset,d_v2,k_v2_offset,