From 8d8ad2e60290c367f1918efb2835468dcdfa3c71 Mon Sep 17 00:00:00 2001 From: Jeff Hammond Date: Wed, 11 Oct 2023 16:05:19 +0300 Subject: [PATCH] fix non-F90 case --- src/tce/ccsd/ccsd_t2_8.F | 6 +++--- src/tce/ccsd/icsd_t2.F | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/src/tce/ccsd/ccsd_t2_8.F b/src/tce/ccsd/ccsd_t2_8.F index 8acd5c2d17..fbbb18ad38 100644 --- a/src/tce/ccsd/ccsd_t2_8.F +++ b/src/tce/ccsd/ccsd_t2_8.F @@ -358,9 +358,9 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( p43d = int_mb(k_range+p3b-1)*int_mb(k_range+p4b-1) p65d = int_mb(k_range+p5b-1)*int_mb(k_range+p6b-1) call DGEMM('n','n',h21d,p43d,p65d, - & 0.5d0*alpha,f_a,h21d, - & f_b,p65d, - & 1.0d0, f_c,h21d) + & 0.5d0*alpha,dbl_mb(k_a),h21d, + & dbl_mb(k_b),p65d, + & 1.0d0, dbl_mb(k_c),h21d) END IF END IF END IF diff --git a/src/tce/ccsd/icsd_t2.F b/src/tce/ccsd/icsd_t2.F index ea7a2ad008..7e4bb8dd2f 100644 --- a/src/tce/ccsd/icsd_t2.F +++ b/src/tce/ccsd/icsd_t2.F @@ -9219,9 +9219,9 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( p43d = int_mb(k_range+p3b-1)*int_mb(k_range+p4b-1) p65d = int_mb(k_range+p5b-1)*int_mb(k_range+p6b-1) call DGEMM('n','n',h21d,p43d,p65d, - & 0.5d0*alpha,f_a,h21d, - & f_b,p65d, - & 1.0d0, f_c,h21d) + & 0.5d0*alpha,dbl_mb(k_a),h21d, + & dbl_mb(k_b),p65d, + & 1.0d0, dbl_mb(k_c),h21d) END IF END IF END IF