From 07c82cc7be75bfb83d26391da2a3c781cb782ab9 Mon Sep 17 00:00:00 2001 From: AbdAmmar Date: Mon, 5 Dec 2022 00:31:24 +0100 Subject: [PATCH] fixed bug opt-GTOs --- src/ao_tc_eff_map/fit_j.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ao_tc_eff_map/fit_j.irp.f b/src/ao_tc_eff_map/fit_j.irp.f index 84ae28a7..af00d5ab 100644 --- a/src/ao_tc_eff_map/fit_j.irp.f +++ b/src/ao_tc_eff_map/fit_j.irp.f @@ -169,7 +169,7 @@ END_PROVIDER tmp = 0.25d0 / (mu_erf * mu_erf) do i = 1, ng_fit_jast - coef_gauss_j_mu_x_2(i) = tmp * coef_fit_slat_gauss(i) + coef_gauss_j_mu_x_2(i) = tmp * coef_gauss_j_mu_x_2(i) enddo END_PROVIDER