From 12481e84ce877cb8ed4c192d17b77587d3809612 Mon Sep 17 00:00:00 2001 From: Austin Blevins Date: Thu, 20 Jul 2023 12:29:16 -0400 Subject: [PATCH] fixed another bug --- src/util/util_t_from_scale.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/util/util_t_from_scale.f90 b/src/util/util_t_from_scale.f90 index 5dc9a193..216c7154 100644 --- a/src/util/util_t_from_scale.f90 +++ b/src/util/util_t_from_scale.f90 @@ -26,7 +26,7 @@ function util_t_from_scale(scale,start,finish) result(time) real(DP) :: tol = 1e-11_DP integer(I4B) :: maxiter = 1000 integer(I4B) :: i - real(DP) :: a, b, c + real(DP) :: a, b, c, temp a = start