better print then write

- shorter, always writes to STDOUT

also, report only details (paper) of active models

src/constitutive.f90

@@ -446,7 +446,7 @@ subroutine constitutive_init
   call damage_init
   call thermal_init
 
-  write(6,'(/,a)')   ' <<<+-  constitutive init  -+>>>'; flush(6)
+  print'(/,a)', ' <<<+-  constitutive init  -+>>>'; flush(6)
 
   constitutive_source_maxSizeDotState = 0
   PhaseLoop2:do p = 1,phases%length

src/constitutive_plastic.f90

@@ -198,6 +198,8 @@ module subroutine plastic_init
   integer :: p
   class(tNode), pointer :: phases
 
+  print'(/,a)', ' <<<+-  constitutive_plastic init  -+>>>'
+
   phases => config_material%get('phase')
 
   allocate(plasticState(phases%length))

src/constitutive_plastic_disloTungsten.f90

@@ -96,17 +96,16 @@ module function plastic_disloTungsten_init() result(myPlasticity)
     phase, &
     pl
 
-  write(6,'(/,a)') ' <<<+-  plastic_disloTungsten init  -+>>>'
+  print'(/,a)', ' <<<+-  plastic_dislotungsten init  -+>>>'
-
-  write(6,'(/,a)') ' Cereceda et al., International Journal of Plasticity 78:242–256, 2016'
-  write(6,'(a)')   ' https://dx.doi.org/10.1016/j.ijplas.2015.09.002'
 
   myPlasticity = plastic_active('disloTungsten')
-
   Ninstance = count(myPlasticity)
-  write(6,'(a16,1x,i5,/)') '# instances:',Ninstance; flush(6)
+  print'(a,i2)', ' # instances: ',Ninstance; flush(6)
   if(Ninstance == 0) return
   
+  print*, 'Cereceda et al., International Journal of Plasticity 78:242–256, 2016'
+  print*, 'https://dx.doi.org/10.1016/j.ijplas.2015.09.002'
+
   allocate(param(Ninstance))
   allocate(state(Ninstance))
   allocate(dotState(Ninstance))

src/constitutive_plastic_dislotwin.f90

@@ -143,23 +143,22 @@ module function plastic_dislotwin_init() result(myPlasticity)
     phase, &
     pl
 
-  write(6,'(/,a)') ' <<<+-  constitutive_dislotwin init  -+>>>'
+  print'(/,a)', ' <<<+-  plastic_dislotwin init  -+>>>'
-
-  write(6,'(/,a)') ' Ma and Roters, Acta Materialia 52(12):3603–3612, 2004'
-  write(6,'(a)')   ' https://doi.org/10.1016/j.actamat.2004.04.012'
-
-  write(6,'(/,a)') ' Roters et al., Computational Materials Science 39:91–95, 2007'
-  write(6,'(a)')   ' https://doi.org/10.1016/j.commatsci.2006.04.014'
-
-  write(6,'(/,a)') ' Wong et al., Acta Materialia 118:140–151, 2016'
-  write(6,'(a,/)') ' https://doi.org/10.1016/j.actamat.2016.07.032'
 
   myPlasticity = plastic_active('dislotwin')
-
   Ninstance = count(myPlasticity)
-  write(6,'(a16,1x,i5,/)') '# instances:',Ninstance; flush(6)
+  print'(a,i2)', ' # instances: ',Ninstance; flush(6)
   if(Ninstance == 0) return
   
+  print*, 'Ma and Roters, Acta Materialia 52(12):3603–3612, 2004'
+  print*, 'https://doi.org/10.1016/j.actamat.2004.04.012'//IO_EOL
+
+  print*, 'Roters et al., Computational Materials Science 39:91–95, 2007'
+  print*, 'https://doi.org/10.1016/j.commatsci.2006.04.014'//IO_EOL
+
+  print*, 'Wong et al., Acta Materialia 118:140–151, 2016'
+  print*, 'https://doi.org/10.1016/j.actamat.2016.07.032'
+
   allocate(param(Ninstance))
   allocate(state(Ninstance))
   allocate(dotState(Ninstance))

src/constitutive_plastic_isotropic.f90

@@ -49,7 +49,7 @@ contains
 !> @brief Perform module initialization.
 !> @details reads in material parameters, allocates arrays, and does sanity checks
 !--------------------------------------------------------------------------------------------------
-module function plastic_isotropic_init()  result(myPlasticity)
+module function plastic_isotropic_init() result(myPlasticity)
 
   logical, dimension(:), allocatable :: myPlasticity
   integer :: &
@@ -67,18 +67,16 @@ module function plastic_isotropic_init()  result(myPlasticity)
     phase, &
     pl
 
-  write(6,'(/,a)') ' <<<+-  plastic_isotropic init  -+>>>'
+  print'(/,a)', ' <<<+-  plastic_isotropic init  -+>>>'
-
-  write(6,'(/,a)') ' Maiti and Eisenlohr, Scripta Materialia 145:37–40, 2018'
-  write(6,'(a)')   ' https://doi.org/10.1016/j.scriptamat.2017.09.047'
-
 
   myPlasticity = plastic_active('isotropic')
-
   Ninstance = count(myPlasticity)
-  write(6,'(a16,1x,i5,/)') '# instances:',Ninstance; flush(6)
+  print'(a,i2)', ' # instances: ',Ninstance; flush(6)
   if(Ninstance == 0) return
 
+  print*, 'Maiti and Eisenlohr, Scripta Materialia 145:37–40, 2018'
+  print*, 'https://doi.org/10.1016/j.scriptamat.2017.09.047'
+
   allocate(param(Ninstance))
   allocate(state(Ninstance))
   allocate(dotState(Ninstance))

src/constitutive_plastic_kinehardening.f90

@@ -58,7 +58,7 @@ contains
 !> @brief Perform module initialization.
 !> @details reads in material parameters, allocates arrays, and does sanity checks
 !--------------------------------------------------------------------------------------------------
-module function plastic_kinehardening_init()  result(myPlasticity)
+module function plastic_kinehardening_init() result(myPlasticity)
 
   logical, dimension(:), allocatable :: myPlasticity
   integer :: &
@@ -79,12 +79,11 @@ module function plastic_kinehardening_init()  result(myPlasticity)
     phase, &
     pl
 
-  write(6,'(/,a)') ' <<<+-  plastic_kinehardening init  -+>>>'
+  print'(/,a)', ' <<<+-  plastic_kinehardening init  -+>>>'
 
   myPlasticity = plastic_active('kinehardening')
-
   Ninstance = count(myPlasticity)
-  write(6,'(a16,1x,i5,/)') '# instances:',Ninstance; flush(6)
+  print'(a,i2)', ' # instances: ',Ninstance; flush(6)
   if(Ninstance == 0) return
 
   allocate(param(Ninstance))

src/constitutive_plastic_none.f90

@@ -9,10 +9,10 @@ submodule(constitutive:constitutive_plastic) plastic_none
 contains
 
 !--------------------------------------------------------------------------------------------------
-!> @brief module initialization
+!> @brief Perform module initialization.
 !> @details reads in material parameters, allocates arrays, and does sanity checks
 !--------------------------------------------------------------------------------------------------
-module function plastic_none_init()  result(myPlasticity)
+module function plastic_none_init() result(myPlasticity)
 
   logical, dimension(:), allocatable :: myPlasticity
   integer :: &
@@ -24,10 +24,10 @@ module function plastic_none_init()  result(myPlasticity)
     phase, &
     pl
 
-  write(6,'(/,a)') ' <<<+-  plastic_none init  -+>>>'
+  print'(/,a)', ' <<<+-  plastic_none init  -+>>>'
 
   phases => config_material%get('phase')
-  allocate(myPlasticity(phases%length), source = .false. )
+  allocate(myPlasticity(phases%length), source = .false.)
   do p = 1, phases%length
     phase => phases%get(p)
     pl => phase%get('plasticity')
@@ -35,7 +35,7 @@ module function plastic_none_init()  result(myPlasticity)
   enddo
 
   Ninstance = count(myPlasticity)
-  write(6,'(a16,1x,i5,/)') '# instances:',Ninstance; flush(6)
+  print'(a,i2)', ' # instances: ',Ninstance; flush(6)
   if(Ninstance == 0) return
 
   do p = 1, phases%length

src/constitutive_plastic_nonlocal.f90

@@ -159,8 +159,9 @@ submodule(constitutive:constitutive_plastic) plastic_nonlocal
 
 contains
 
+
 !--------------------------------------------------------------------------------------------------
-!> @brief module initialization
+!> @brief Perform module initialization.
 !> @details reads in material parameters, allocates arrays, and does sanity checks
 !--------------------------------------------------------------------------------------------------
 module function plastic_nonlocal_init() result(myPlasticity)
@@ -184,23 +185,21 @@ module function plastic_nonlocal_init() result(myPlasticity)
     phase, &
     pl
 
-  write(6,'(/,a)') ' <<<+-  plastic_nonlocal init  -+>>>'
+  print'(/,a)', ' <<<+-  plastic_nonlocal init  -+>>>'
-
-  write(6,'(/,a)') ' Reuber et al., Acta Materialia 71:333–348, 2014'
-  write(6,'(a)')   ' https://doi.org/10.1016/j.actamat.2014.03.012'
-
-  write(6,'(/,a)') ' Kords, Dissertation RWTH Aachen, 2014'
-  write(6,'(a)')   ' http://publications.rwth-aachen.de/record/229993'
 
   myPlasticity = plastic_active('nonlocal')
-
   Ninstance = count(myPlasticity)
-  write(6,'(a16,1x,i5,/)') '# instances:',Ninstance; flush(6)
+  print'(a,i2)', ' # instances: ',Ninstance; flush(6)
   if(Ninstance == 0) then
     call geometry_plastic_nonlocal_disable
     return
   endif
   
+  print*, 'Reuber et al., Acta Materialia 71:333–348, 2014'
+  print*, 'https://doi.org/10.1016/j.actamat.2014.03.012'//IO_EOL
+
+  print*, 'Kords, Dissertation RWTH Aachen, 2014'
+  print*, 'http://publications.rwth-aachen.de/record/229993'//IO_EOL
 
   allocate(param(Ninstance))
   allocate(state(Ninstance))

src/constitutive_plastic_phenopowerlaw.f90

@@ -66,7 +66,7 @@ contains
 !> @brief Perform module initialization.
 !> @details reads in material parameters, allocates arrays, and does sanity checks
 !--------------------------------------------------------------------------------------------------
-module function plastic_phenopowerlaw_init()  result(myPlasticity)
+module function plastic_phenopowerlaw_init() result(myPlasticity)
 
   logical, dimension(:), allocatable :: myPlasticity
   integer :: &
@@ -88,13 +88,11 @@ module function plastic_phenopowerlaw_init()  result(myPlasticity)
     phase, &
     pl
 
-  write(6,'(/,a)') ' <<<+-  plastic_phenopowerlaw init  -+>>>'
+  print'(/,a)', ' <<<+-  plastic_phenopowerlaw init  -+>>>'
-
 
   myPlasticity = plastic_active('phenopowerlaw')
-
   Ninstance = count(myPlasticity)
-  write(6,'(a16,1x,i5,/)') '# instances:',Ninstance; flush(6)
+  print'(a,i2)', ' # instances: ',Ninstance; flush(6)
   if(Ninstance == 0) return
 
   allocate(param(Ninstance))