less verbose reporting

src/phase_damage_anisobrittle.f90

@@ -40,16 +40,17 @@ module function anisobrittle_init() result(mySources)
     phase, &
     sources, &
     src
-  integer :: Ninstances,Nconstituents,p
+  integer :: Nconstituents,p
   integer, dimension(:), allocatable :: N_cl
   character(len=pStringLen) :: extmsg = ''
 
-  print'(/,a)', ' <<<+-  phase:damage:anisobrittle init  -+>>>'
 
   mySources = source_active('anisobrittle')
-  Ninstances = count(mySources)
+  if(count(mySources) == 0) return
-  print'(a,i2)', ' # instances: ',Ninstances; flush(IO_STDOUT)
+
-  if(Ninstances == 0) return
+  print'(/,a)', ' <<<+-  phase:damage:anisobrittle init  -+>>>'
+  print'(a,i0)', ' # phases: ',count(mySources); flush(IO_STDOUT)
+
 
   phases => config_material%get('phase')
   allocate(param(phases%length))

src/phase_damage_anisoductile.f90

@@ -39,12 +39,13 @@ module function anisoductile_init() result(mySources)
   integer, dimension(:), allocatable :: N_sl
   character(len=pStringLen) :: extmsg = ''
 
-  print'(/,a)', ' <<<+-  phase:damage:anisoductile init  -+>>>'
 
-  mySources = source_active('damage_anisoDuctile')
+  mySources = source_active('anisoductile')
-  Ninstances = count(mySources)
+  if(count(mySources) == 0) return
-  print'(a,i2)', ' # instances: ',Ninstances; flush(IO_STDOUT)
+
-  if(Ninstances == 0) return
+  print'(/,a)', ' <<<+-  phase:damage:anisoductile init  -+>>>'
+  print'(a,i0)', ' # phases: ',count(mySources); flush(IO_STDOUT)
+
 
   phases => config_material%get('phase')
   allocate(param(phases%length))

src/phase_damage_isobrittle.f90

@@ -31,15 +31,16 @@ module function isobrittle_init() result(mySources)
     phase, &
     sources, &
     src
-  integer :: Ninstances,Nconstituents,p
+  integer :: Nconstituents,p
   character(len=pStringLen) :: extmsg = ''
 
-  print'(/,a)', ' <<<+-  phase:damage:isobrittle init  -+>>>'
 
   mySources = source_active('isobrittle')
-  Ninstances = count(mySources)
+  if(count(mySources) == 0) return
-  print'(a,i2)', ' # instances: ',Ninstances; flush(IO_STDOUT)
+
-  if(Ninstances == 0) return
+  print'(/,a)', ' <<<+-  phase:damage:isobrittle init  -+>>>'
+  print'(a,i0)', ' # phases: ',count(mySources); flush(IO_STDOUT)
+
 
   phases => config_material%get('phase')
   allocate(param(phases%length))

src/phase_damage_isoductile.f90

@@ -36,12 +36,13 @@ module function isoductile_init() result(mySources)
   integer :: Ninstances,Nconstituents,p
   character(len=pStringLen) :: extmsg = ''
 
-  print'(/,a)', ' <<<+-  phase:damage:isoductile init  -+>>>'
 
   mySources = source_active('isoductile')
-  Ninstances = count(mySources)
+  if(count(mySources) == 0) return
-  print'(a,i2)', ' # instances: ',Ninstances; flush(IO_STDOUT)
+
-  if(Ninstances == 0) return
+  print'(/,a)', ' <<<+-  phase:damage:isoductile init  -+>>>'
+  print'(a,i0)', ' # phases: ',count(mySources); flush(IO_STDOUT)
+
 
   phases => config_material%get('phase')
   allocate(param(phases%length))

src/phase_mechanical_plastic_dislotungsten.f90

@@ -97,13 +97,14 @@ module function plastic_dislotungsten_init() result(myPlasticity)
     mech, &
     pl
 
-  print'(/,a)', ' <<<+-  phase:mechanics:plastic:dislotungsten init  -+>>>'
-
   myPlasticity = plastic_active('dislotungsten')
   Ninstances = count(myPlasticity)
-  print'(a,i2)', ' # instances: ',Ninstances; flush(IO_STDOUT)
   if(Ninstances == 0) return
 
+  print'(/,a)', ' <<<+-  phase:mechanics:plastic:dislotungsten init  -+>>>'
+  print'(a,i0)', ' # phases: ',Ninstances; flush(IO_STDOUT)
+
+
   print*, 'Cereceda et al., International Journal of Plasticity 78:242–256, 2016'
   print*, 'https://dx.doi.org/10.1016/j.ijplas.2015.09.002'
 

src/phase_mechanical_plastic_dislotwin.f90

@@ -144,13 +144,13 @@ module function plastic_dislotwin_init() result(myPlasticity)
     mech, &
     pl
 
-  print'(/,a)', ' <<<+-  phase:mechanics:plastic:dislotwin init  -+>>>'
-
   myPlasticity = plastic_active('dislotwin')
   Ninstances = count(myPlasticity)
-  print'(a,i2)', ' # instances: ',Ninstances; flush(IO_STDOUT)
   if(Ninstances == 0) return
 
+  print'(/,a)', ' <<<+-  phase:mechanics:plastic:dislotwin init  -+>>>'
+  print'(a,i0)', ' # phases: ',Ninstances; flush(IO_STDOUT)
+
   print*, 'Ma and Roters, Acta Materialia 52(12):3603–3612, 2004'
   print*, 'https://doi.org/10.1016/j.actamat.2004.04.012'//IO_EOL
 

src/phase_mechanical_plastic_isotropic.f90

@@ -68,13 +68,14 @@ module function plastic_isotropic_init() result(myPlasticity)
     mech, &
     pl
 
-  print'(/,a)', ' <<<+-  phase:mechanics:plastic:isotropic init  -+>>>'
-
   myPlasticity = plastic_active('isotropic')
   Ninstances = count(myPlasticity)
-  print'(a,i2)', ' # instances: ',Ninstances; flush(IO_STDOUT)
   if(Ninstances == 0) return
 
+  print'(/,a)', ' <<<+-  phase:mechanics:plastic:isotropic init  -+>>>'
+  print'(a,i0)', ' # phses: ',Ninstances; flush(IO_STDOUT)
+
+
   print*, 'Maiti and Eisenlohr, Scripta Materialia 145:37–40, 2018'
   print*, 'https://doi.org/10.1016/j.scriptamat.2017.09.047'
 

src/phase_mechanical_plastic_kinehardening.f90

@@ -80,13 +80,14 @@ module function plastic_kinehardening_init() result(myPlasticity)
     mech, &
     pl
 
-  print'(/,a)', ' <<<+-  phase:mechanics:plastic:kinehardening init  -+>>>'
-
   myPlasticity = plastic_active('kinehardening')
   Ninstances = count(myPlasticity)
-  print'(a,i2)', ' # instances: ',Ninstances; flush(IO_STDOUT)
   if(Ninstances == 0) return
 
+  print'(/,a)', ' <<<+-  phase:mechanics:plastic:kinehardening init  -+>>>'
+  print'(a,i0)', ' # phases: ',Ninstances; flush(IO_STDOUT)
+
+
   allocate(param(Ninstances))
   allocate(state(Ninstances))
   allocate(dotState(Ninstances))

src/phase_mechanical_plastic_none.f90

@@ -16,32 +16,20 @@ module function plastic_none_init() result(myPlasticity)
 
   logical, dimension(:), allocatable :: myPlasticity
   integer :: &
-    Ninstances, &
     p, &
     Nconstituents
   class(tNode), pointer :: &
-    phases, &
+    phases
-    phase, &
+
-    mech, &
+
-    pl
+  myPlasticity = plastic_active('nonlocal')
+  if(count(myPlasticity) == 0) return
 
   print'(/,a)', ' <<<+-  phase:mechanics:plastic:none init  -+>>>'
+  print'(a,i0)', ' # phases: ',count(myPlasticity); flush(IO_STDOUT)
 
   phases => config_material%get('phase')
-  allocate(myPlasticity(phases%length), source = .false.)
   do p = 1, phases%length
-    phase => phases%get(p)
-    mech  => phase%get('mechanics')
-    pl    => mech%get ('plasticity')
-    if(pl%get_asString('type') == 'none') myPlasticity(p) = .true.
-  enddo
-
-  Ninstances = count(myPlasticity)
-  print'(a,i2)', ' # instances: ',Ninstances; flush(IO_STDOUT)
-  if(Ninstances == 0) return
-
-  do p = 1, phases%length
-    phase => phases%get(p)
     if(.not. myPlasticity(p)) cycle
     Nconstituents = count(material_phaseAt2 == p)
     call phase_allocateState(plasticState(p),Nconstituents,0,0,0)

src/phase_mechanical_plastic_nonlocal.f90

@@ -187,16 +187,16 @@ module function plastic_nonlocal_init() result(myPlasticity)
     mech, &
     pl
 
-  print'(/,a)', ' <<<+-  phase:mechanics:plastic:nonlocal init  -+>>>'
-
   myPlasticity = plastic_active('nonlocal')
   Ninstances = count(myPlasticity)
-  print'(a,i2)', ' # instances: ',Ninstances; flush(IO_STDOUT)
   if(Ninstances == 0) then
     call geometry_plastic_nonlocal_disable
     return
   endif
 
+  print'(/,a)', ' <<<+-  phase:mechanics:plastic:nonlocal init  -+>>>'
+  print'(a,i0)', ' # phases: ',Ninstances; flush(IO_STDOUT)
+
   print*, 'Reuber et al., Acta Materialia 71:333–348, 2014'
   print*, 'https://doi.org/10.1016/j.actamat.2014.03.012'//IO_EOL
 

src/phase_mechanical_plastic_phenopowerlaw.f90

@@ -89,13 +89,15 @@ module function plastic_phenopowerlaw_init() result(myPlasticity)
     mech, &
     pl
 
-  print'(/,a)', ' <<<+-  phase:mechanics:plastic:phenopowerlaw init  -+>>>'
 
   myPlasticity = plastic_active('phenopowerlaw')
   Ninstances = count(myPlasticity)
-  print'(a,i2)', ' # instances: ',Ninstances; flush(IO_STDOUT)
   if(Ninstances == 0) return
 
+  print'(/,a)', ' <<<+-  phase:mechanics:plastic:phenopowerlaw init  -+>>>'
+  print'(a,i0)', ' # phases: ',Ninstances; flush(IO_STDOUT)
+
+
   allocate(param(Ninstances))
   allocate(state(Ninstances))
   allocate(dotState(Ninstances))