From 6578dc581d2129ecf59c3970a7da6cec77bcdd0f Mon Sep 17 00:00:00 2001
From: Austin Blevins <blevinsaustinm@gmail.com>
Date: Thu, 20 Jul 2023 12:17:03 -0400
Subject: [PATCH] fixed bug in t from scale

---
 src/util/util_t_from_scale.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/util/util_t_from_scale.f90 b/src/util/util_t_from_scale.f90
index 13d17953..5dc9a193 100644
--- a/src/util/util_t_from_scale.f90
+++ b/src/util/util_t_from_scale.f90
@@ -36,7 +36,7 @@ function util_t_from_scale(scale,start,finish) result(time)
     temp = 0._DP
 
     if (abs(temp-scale)<tol) then
-        ans = 0.0_DP
+        time = 0.0_DP
     else
         do while(i .lt. maxiter)
             c = (a+b)/2
@@ -59,7 +59,7 @@ function util_t_from_scale(scale,start,finish) result(time)
         end do
     end if
 
-    if (ans .lt. 0) then
+    if (time .lt. 0) then
         write(*,*) "ERROR in util_t_from_scale: Maximum iterations reached!"
         write(*,*) scale, maxiter
     end if