more helpful error message

src/homogenization_damage_pass.f90

@@ -7,9 +7,12 @@ submodule(homogenization:damage) damage_pass
 contains
 
 module subroutine pass_init()
-  
+
   print'(/,1x,a)', '<<<+-  homogenization:damage:pass init  -+>>>'
 
+  if (homogenization_Nconstituents(1) /= 1) & !ToDo: needs extension to multiple homogenizations
+    call IO_error(211,ext_msg='(pass) with N_constituents !=1')
+
 end subroutine pass_init
 
 end submodule damage_pass

src/homogenization_mechanical_pass.f90

@@ -11,7 +11,7 @@ contains
 !--------------------------------------------------------------------------------------------------
 !> @brief allocates all necessary fields, reads information from material configuration file
 !--------------------------------------------------------------------------------------------------
-module subroutine pass_init
+module subroutine pass_init()
 
   integer :: &
     ho, &
@@ -26,7 +26,7 @@ module subroutine pass_init
     if (homogenization_type(ho) /= HOMOGENIZATION_NONE_ID) cycle
 
     if (homogenization_Nconstituents(ho) /= 1) &
-      call IO_error(211,ext_msg='N_constituents (pass)')
+      call IO_error(211,ext_msg='(pass) with N_constituents !=1')
 
     Nmembers = count(material_homogenizationID == ho)
     homogState(ho)%sizeState = 0

src/homogenization_thermal_pass.f90

@@ -10,7 +10,7 @@ module subroutine pass_init()
 
   print'(/,1x,a)', '<<<+-  homogenization:thermal:pass init  -+>>>'
 
-  if (homogenization_Nconstituents(1) /= 1) &
+  if (homogenization_Nconstituents(1) /= 1) & !ToDo: needs extension to multiple homogenizations
     call IO_error(211,ext_msg='(pass) with N_constituents !=1')
 
 end subroutine pass_init