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