fix debug msg output

cmbant · Jul 10, 2023 · 9d4fb1b · 9d4fb1b
1 parent 450815c
commit 9d4fb1b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)