From 9d4fb1b066dbae8e81ddddb96337705328d8c531 Mon Sep 17 00:00:00 2001
From: Antony Lewis <antony@cosmologist.info>
Date: Mon, 10 Jul 2023 08:30:55 +0100
Subject: [PATCH] fix debug msg output

---
 fortran/cmbmain.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fortran/cmbmain.f90 b/fortran/cmbmain.f90
index fe3aafc1..c209bc82 100644
--- a/fortran/cmbmain.f90
+++ b/fortran/cmbmain.f90
@@ -1106,7 +1106,7 @@ subroutine TransferOut
 
 
     if (DebugMsgs .and. Feedbacklevel > 0) &
-        call WriteFormat('Transfer k values: %f',State%MT%num_q_trans-n_source_points)
+        call WriteFormat('Transfer k values: %d',State%MT%num_q_trans-n_source_points)
 
     !     loop over wavenumbers.
     !$OMP PARALLEL DO DEFAULT(SHARED),SCHEDULE(DYNAMIC), PRIVATE(EV, tau, q_ix)