From 8d4af1ba9f614fe3a9e5ee53f9268633ea913a2e Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Sun, 19 Jan 2025 11:15:44 +0100
Subject: [PATCH] Fix output formatting bug

---
 amgprec/impl/level/amg_c_base_onelev_descr.f90 | 2 +-
 amgprec/impl/level/amg_d_base_onelev_descr.f90 | 2 +-
 amgprec/impl/level/amg_s_base_onelev_descr.f90 | 2 +-
 amgprec/impl/level/amg_z_base_onelev_descr.f90 | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/amgprec/impl/level/amg_c_base_onelev_descr.f90 b/amgprec/impl/level/amg_c_base_onelev_descr.f90
index 8c3b1e5b..cf743b59 100644
--- a/amgprec/impl/level/amg_c_base_onelev_descr.f90
+++ b/amgprec/impl/level/amg_c_base_onelev_descr.f90
@@ -129,7 +129,7 @@ subroutine amg_c_base_onelev_descr(lv,il,nl,ilmin,info,iout,verbosity,prefix)
                & '                          avg:', &
                & lv%linmap%nagavg
         end if
-        write(iout_,'(a,1xa,1x,f14.2)') trim(prefix_),&
+        write(iout_,'(a,1x,a,1x,f14.2)') trim(prefix_),&
              & '          Aggregation   ratio: ', &
              &  lv%szratio
       end if
diff --git a/amgprec/impl/level/amg_d_base_onelev_descr.f90 b/amgprec/impl/level/amg_d_base_onelev_descr.f90
index cefa6ece..621b8444 100644
--- a/amgprec/impl/level/amg_d_base_onelev_descr.f90
+++ b/amgprec/impl/level/amg_d_base_onelev_descr.f90
@@ -129,7 +129,7 @@ subroutine amg_d_base_onelev_descr(lv,il,nl,ilmin,info,iout,verbosity,prefix)
                & '                          avg:', &
                & lv%linmap%nagavg
         end if
-        write(iout_,'(a,1xa,1x,f14.2)') trim(prefix_),&
+        write(iout_,'(a,1x,a,1x,f14.2)') trim(prefix_),&
              & '          Aggregation   ratio: ', &
              &  lv%szratio
       end if
diff --git a/amgprec/impl/level/amg_s_base_onelev_descr.f90 b/amgprec/impl/level/amg_s_base_onelev_descr.f90
index 9de05c6e..0bc10503 100644
--- a/amgprec/impl/level/amg_s_base_onelev_descr.f90
+++ b/amgprec/impl/level/amg_s_base_onelev_descr.f90
@@ -129,7 +129,7 @@ subroutine amg_s_base_onelev_descr(lv,il,nl,ilmin,info,iout,verbosity,prefix)
                & '                          avg:', &
                & lv%linmap%nagavg
         end if
-        write(iout_,'(a,1xa,1x,f14.2)') trim(prefix_),&
+        write(iout_,'(a,1x,a,1x,f14.2)') trim(prefix_),&
              & '          Aggregation   ratio: ', &
              &  lv%szratio
       end if
diff --git a/amgprec/impl/level/amg_z_base_onelev_descr.f90 b/amgprec/impl/level/amg_z_base_onelev_descr.f90
index 99a1e9d7..57b4612a 100644
--- a/amgprec/impl/level/amg_z_base_onelev_descr.f90
+++ b/amgprec/impl/level/amg_z_base_onelev_descr.f90
@@ -129,7 +129,7 @@ subroutine amg_z_base_onelev_descr(lv,il,nl,ilmin,info,iout,verbosity,prefix)
                & '                          avg:', &
                & lv%linmap%nagavg
         end if
-        write(iout_,'(a,1xa,1x,f14.2)') trim(prefix_),&
+        write(iout_,'(a,1x,a,1x,f14.2)') trim(prefix_),&
              & '          Aggregation   ratio: ', &
              &  lv%szratio
       end if