From 6aae4f20c2f4fdfcc058fb32a1dcb01b4bc7d715 Mon Sep 17 00:00:00 2001 From: dannysun Date: Thu, 12 Oct 2023 09:19:48 -0700 Subject: [PATCH] fixed potential bug line 1300, name matching --- tglf/src/tglf_matrix.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tglf/src/tglf_matrix.f90 b/tglf/src/tglf_matrix.f90 index c1692208e..2b38af123 100644 --- a/tglf/src/tglf_matrix.f90 +++ b/tglf/src/tglf_matrix.f90 @@ -1297,7 +1297,7 @@ SUBROUTINE wd_h ave_wdhr13p0(is,ib,jb) = wdhr13p0 ave_wdhp1b0(is,ib,jb) = wdhp1b0 ave_wdhr11b0(is,ib,jb) = wdhr11b0 - ave_wdhr13b0(is,ib,jb) = wdhr13bp + ave_wdhr13b0(is,ib,jb) = wdhr13b0 ave_wdhp1bp(is,ib,jb) = wdhp1bp ave_wdhr11bp(is,ib,jb) = wdhr11bp ave_wdhr13bp(is,ib,jb) = wdhr13bp