diff --git a/src/damage_none.f90 b/src/damage_none.f90
index d3b1b73c5..239f98c4e 100644
--- a/src/damage_none.f90
+++ b/src/damage_none.f90
@@ -7,11 +7,8 @@ module damage_none
   use material
 
   implicit none
-  private
+  public
   
-  public :: &
-    damage_none_init
-
 contains
 
 !--------------------------------------------------------------------------------------------------
@@ -21,7 +18,7 @@ subroutine damage_none_init
 
   integer :: h,NofMyHomog
 
-  write(6,'(/,a)')   ' <<<+-  damage_'//DAMAGE_NONE_LABEL//' init  -+>>>'; flush(6)
+  write(6,'(/,a)') ' <<<+-  damage_'//DAMAGE_NONE_LABEL//' init  -+>>>'; flush(6)
 
   do h = 1, size(config_homogenization)
     if (damage_type(h) /= DAMAGE_NONE_ID) cycle
diff --git a/src/homogenization_mech_none.f90 b/src/homogenization_mech_none.f90
index 3e7998d88..474d74ffd 100644
--- a/src/homogenization_mech_none.f90
+++ b/src/homogenization_mech_none.f90
@@ -18,7 +18,7 @@ module subroutine mech_none_init
     h, &
     NofMyHomog
  
-  write(6,'(/,a)')   ' <<<+-  homogenization_'//HOMOGENIZATION_NONE_label//' init  -+>>>'
+  write(6,'(/,a)') ' <<<+-  homogenization_'//HOMOGENIZATION_NONE_label//' init  -+>>>'; flush(6)
 
   Ninstance = count(homogenization_type == HOMOGENIZATION_NONE_ID)
   if (iand(debug_level(debug_HOMOGENIZATION),debug_levelBasic) /= 0) &