From 00392d5d623ae0fb5f1eaaeca9b4c89ddb1597d7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Max=20L=C3=BCbke?= <mluebke@gfz-potsdam.de>
Date: Wed, 10 Apr 2024 10:20:59 +0000
Subject: [PATCH] Refactor R_lib/kin_r_library.R to use setup$maxiter instead
 of iter for calculating max digits

---
 R_lib/kin_r_library.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R_lib/kin_r_library.R b/R_lib/kin_r_library.R
index 835eea080..58941a032 100644
--- a/R_lib/kin_r_library.R
+++ b/R_lib/kin_r_library.R
@@ -61,7 +61,7 @@ master_iteration_end <- function(setup, state_T, state_C) {
     iter <- setup$iter
     # print(iter)
     ## max digits for iterations
-    dgts <- as.integer(ceiling(log10(iter)))
+    dgts <- as.integer(ceiling(log10(setup$maxiter)))
     ## string format to use in sprintf
     fmt <- paste0("%0", dgts, "d")