polishing and extending citations

src/DAMASK_abaqus.f

@@ -49,7 +49,7 @@ subroutine DAMASK_interface_init
 
  write(6,'(/,a)') ' <<<+-  DAMASK_abaqus init -+>>>'
 
- write(6,'(/,a)') ' Roters et al., Computational Materials Science 158:420–478, 2018.'
+ write(6,'(/,a)') ' Roters et al., Computational Materials Science 158:420–478, 2018'
  write(6,'(a)')   ' https://doi.org/10.1016/j.commatsci.2018.04.030'
 
  write(6,'(/,a)') ' Version: '//DAMASKVERSION

src/DAMASK_interface.f90

@@ -152,7 +152,7 @@ subroutine DAMASK_interface_init()
 
   write(6,'(/,a)') ' <<<+-  DAMASK_interface init  -+>>>'
 
-  write(6,'(/,a)') ' Roters et al., Computational Materials Science 158:420–478, 2018.'
+  write(6,'(/,a)') ' Roters et al., Computational Materials Science 158:420–478, 2018'
   write(6,'(a)')   ' https://doi.org/10.1016/j.commatsci.2018.04.030'
 
   write(6,'(/,a)') ' Version: '//DAMASKVERSION

src/DAMASK_marc.f90

@@ -60,7 +60,7 @@ subroutine DAMASK_interface_init
 
  write(6,'(/,a)') ' <<<+-  DAMASK_marc init -+>>>'
 
- write(6,'(/,a)') ' Roters et al., Computational Materials Science 158:420–478, 2018.'
+ write(6,'(/,a)') ' Roters et al., Computational Materials Science 158:420–478, 2018'
  write(6,'(a)')   ' https://doi.org/10.1016/j.commatsci.2018.04.030'
 
  write(6,'(/,a)') ' Version: '//DAMASKVERSION

src/damage_none.f90

@@ -4,11 +4,11 @@
 !--------------------------------------------------------------------------------------------------
 module damage_none
 
- implicit none
+  implicit none
- private
+  private
- 
+  
- public :: &
+  public :: &
-   damage_none_init
+    damage_none_init
 
 contains
 
@@ -16,43 +16,39 @@ contains
 !> @brief allocates all neccessary fields, reads information from material configuration file
 !--------------------------------------------------------------------------------------------------
 subroutine damage_none_init()
-#if defined(__GFORTRAN__) || __INTEL_COMPILER >= 1800
+  use config, only: &
- use, intrinsic :: iso_fortran_env, only: &
+    config_homogenization
-   compiler_version, &
+  use material, only: &
-   compiler_options
+    damage_initialPhi, &
-#endif
+    damage, &
- use prec, only: &
+    damage_type, &
-   pInt 
+    material_homog, &
- use IO, only: &
+    damageState, &
-   IO_timeStamp
+    DAMAGE_NONE_LABEL, &
- use material
+    DAMAGE_NONE_ID
- use config
  
- implicit none
+  implicit none
- integer(pInt) :: &
+  integer :: &
-   homog, &
+    homog, &
-   NofMyHomog
+    NofMyHomog
 
- write(6,'(/,a)')   ' <<<+-  damage_'//DAMAGE_none_label//' init  -+>>>'
+  write(6,'(/,a)')   ' <<<+-  damage_'//DAMAGE_NONE_LABEL//' init  -+>>>'
- write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
-#include "compilation_info.f90"
-
-  initializeInstances: do homog = 1_pInt, material_Nhomogenization
-   
-   myhomog: if (damage_type(homog) == DAMAGE_none_ID) then
-     NofMyHomog = count(material_homog == homog)
-     damageState(homog)%sizeState = 0_pInt
-     damageState(homog)%sizePostResults = 0_pInt
-     allocate(damageState(homog)%state0   (0_pInt,NofMyHomog))
-     allocate(damageState(homog)%subState0(0_pInt,NofMyHomog))
-     allocate(damageState(homog)%state    (0_pInt,NofMyHomog))
-     
-     deallocate(damage(homog)%p)
-     allocate  (damage(homog)%p(1), source=damage_initialPhi(homog))
-     
-   endif myhomog
- enddo initializeInstances
 
+   initializeInstances: do homog = 1, size(config_homogenization)
+    
+    myhomog: if (damage_type(homog) == DAMAGE_NONE_ID) then
+      NofMyHomog = count(material_homog == homog)
+      damageState(homog)%sizeState = 0
+      damageState(homog)%sizePostResults = 0
+      allocate(damageState(homog)%state0   (0,NofMyHomog))
+      allocate(damageState(homog)%subState0(0,NofMyHomog))
+      allocate(damageState(homog)%state    (0,NofMyHomog))
+      
+      deallocate(damage(homog)%p)
+      allocate  (damage(homog)%p(1), source=damage_initialPhi(homog))
+      
+    endif myhomog
+  enddo initializeInstances
 
 end subroutine damage_none_init
 

src/homogenization_RGC.f90

@@ -137,13 +137,15 @@ subroutine homogenization_RGC_init()
    outputs
  
  write(6,'(/,a)')   ' <<<+-  homogenization_'//HOMOGENIZATION_RGC_label//' init  -+>>>'
- write(6,'(/,a)')   ' Tjahjanto et al., International Journal of Material Forming, 2(1):939–942, 2009'
+
+ write(6,'(/,a)')   ' Tjahjanto et al., International Journal of Material Forming 2(1):939–942, 2009'
  write(6,'(a)')     ' https://doi.org/10.1007/s12289-009-0619-1'
- write(6,'(/,a)')   ' Tjahjanto et al., Modelling and Simulation in Materials Science and Engineering, 18:015006, 2010'
+
+ write(6,'(/,a)')   ' Tjahjanto et al., Modelling and Simulation in Materials Science and Engineering 18:015006, 2010'
  write(6,'(a)')     ' https://doi.org/10.1088/0965-0393/18/1/015006'
 
- Ninstance = int(count(homogenization_type == HOMOGENIZATION_RGC_ID),pInt)
+ Ninstance = count(homogenization_type == HOMOGENIZATION_RGC_ID)
- if (iand(debug_level(debug_HOMOGENIZATION),debug_levelBasic) /= 0_pInt) &
+ if (iand(debug_level(debug_HOMOGENIZATION),debug_levelBasic) /= 0) &
    write(6,'(a16,1x,i5,/)') '# instances:',Ninstance
 
  allocate(param(Ninstance))

src/plastic_disloUCLA.f90

@@ -158,8 +158,9 @@ subroutine plastic_disloUCLA_init()
    outputs
 
  write(6,'(/,a)')   ' <<<+-  plastic_'//PLASTICITY_DISLOUCLA_label//' init  -+>>>'
- write(6,'(/,a)')   ' Cereceda et al., International Journal of Plasticity 78, 2016, 242-256'
+
- write(6,'(/,a)')   ' http://dx.doi.org/10.1016/j.ijplas.2015.09.002'
+ 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'
 
  Ninstance = int(count(phase_plasticity == PLASTICITY_DISLOUCLA_ID),pInt)
  if (iand(debug_level(debug_constitutive),debug_levelBasic) /= 0_pInt) &

src/plastic_dislotwin.f90

@@ -230,11 +230,14 @@ subroutine plastic_dislotwin_init
    outputs
 
  write(6,'(/,a)')   ' <<<+-  constitutive_'//PLASTICITY_DISLOTWIN_label//' init  -+>>>'
- write(6,'(/,a)')   ' A. Ma and F. Roters, Acta Materialia, 52(12):3603–3612, 2004'
+
+ 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)')   ' F.Roters et al., Computational Materials Science, 39:91–95, 2007'
+
+ 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)')   ' Wong et al., Acta Materialia 118:140–151, 2016'
  write(6,'(a,/)')   ' https://doi.org/10.1016/j.actamat.2016.07.032'
 
  Ninstance = count(phase_plasticity == PLASTICITY_DISLOTWIN_ID)

src/plastic_isotropic.f90

@@ -125,8 +125,9 @@ subroutine plastic_isotropic_init
    outputs
 
  write(6,'(/,a)')   ' <<<+-  plastic_'//PLASTICITY_ISOTROPIC_label//' 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'
+ 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'
 
  Ninstance = count(phase_plasticity == PLASTICITY_ISOTROPIC_ID)
  if (iand(debug_level(debug_constitutive),debug_levelBasic) /= 0_pInt) &

src/plastic_nonlocal.f90

@@ -290,8 +290,14 @@ subroutine plastic_nonlocal_init
  
   write(6,'(/,a)')   ' <<<+-  constitutive_'//PLASTICITY_NONLOCAL_label//' init  -+>>>'
 
- maxNinstances = int(count(phase_plasticity == PLASTICITY_NONLOCAL_ID),pInt)
+  write(6,'(/,a)')   ' Reuber et al., Acta Materialia 71:333–348, 2014'
-  if (iand(debug_level(debug_constitutive),debug_levelBasic) /= 0_pInt) &
+  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'
+
+ maxNinstances = count(phase_plasticity == PLASTICITY_NONLOCAL_ID)
+  if (iand(debug_level(debug_constitutive),debug_levelBasic) /= 0) &
     write(6,'(a16,1x,i5,/)') '# instances:',maxNinstances
 
 

src/results.f90

@@ -13,35 +13,36 @@ module results
   use PETSC
 #endif
 
- implicit none
+  implicit none
- private
+  private
- integer(HID_T), public, protected :: tempCoordinates, tempResults
+  integer(HID_T), public, protected :: tempCoordinates, tempResults
- integer(HID_T), private :: resultsFile, currentIncID, plist_id
+  integer(HID_T), private :: resultsFile, currentIncID, plist_id
 
 
- public :: &
+  public :: &
-   results_init, &
+    results_init, &
-   results_openJobFile, &
+    results_openJobFile, &
-   results_closeJobFile, &
+    results_closeJobFile, &
-   results_addIncrement, &
+    results_addIncrement, &
-   results_addGroup, &
+    results_addGroup, &
-   results_openGroup, &
+    results_openGroup, &
-   results_writeVectorDataset, &
+    results_writeVectorDataset, &
-   results_setLink, &
+    results_setLink, &
-   results_removeLink
+    results_removeLink
 contains
 
 subroutine results_init
- use, intrinsic :: &
+  use DAMASK_interface, only: &
-   iso_fortran_env  ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
+    getSolverJobName
- use DAMASK_interface, only: &
-   getSolverJobName
- implicit none
 
- write(6,'(/,a)') ' <<<+-  results init  -+>>>'
+  implicit none
-#include "compilation_info.f90"
 
- call HDF5_closeFile(HDF5_openFile(trim(getSolverJobName())//'.hdf5','w',.true.))
+  write(6,'(/,a)') ' <<<+-  results init  -+>>>'
+
+  write(6,'(/,a)') ' Diehl et al., Integrating Materials and Manufacturing Innovation 6(1):83–91, 2017'
+  write(6,'(a)')   ' https://doi.org/10.1007/s40192-018-0118-7'
+
+  call HDF5_closeFile(HDF5_openFile(trim(getSolverJobName())//'.hdf5','w',.true.))
 
 end subroutine results_init
 

src/spectral_damage.f90

@@ -75,8 +75,9 @@ subroutine spectral_damage_init()
   character(len=100) :: snes_type
  
   write(6,'(/,a)') ' <<<+-  spectral_damage init  -+>>>'
-  write(6,'(/,a)') ' Shanthraj et al., Handbook of Mechanics of Materials, volume in press, '
+
-  write(6,'(a,/)') ' chapter Spectral Solvers for Crystal Plasticity and Multi-Physics Simulations. Springer, 2018 '
+  write(6,'(/,a)') ' Shanthraj et al., Handbook of Mechanics of Materials, 2019'
+  write(6,'(a)')   ' https://doi.org/10.1007/978-981-10-6855-3_80'
  
 !--------------------------------------------------------------------------------------------------
 ! initialize solver specific parts of PETSc

src/spectral_mech_Basic.f90

@@ -113,8 +113,12 @@ subroutine basic_init
  character(len=1024) :: rankStr
  
  write(6,'(/,a)') ' <<<+-  DAMASK_spectral_solverBasic init  -+>>>'
- write(6,'(/,a)') ' Shanthraj et al., International Journal of Plasticity, 66:31–45, 2015'
+
- write(6,'(a,/)') ' https://doi.org/10.1016/j.ijplas.2014.02.006'
+ write(6,'(/,a)') ' Eisenlohr et al., International Journal of Plasticity 46:37–53, 2013'
+ write(6,'(a)')   ' https://doi.org/10.1016/j.ijplas.2012.09.012'
+
+ write(6,'(/,a)') ' Shanthraj et al., International Journal of Plasticity 66:31–45, 2015'
+ write(6,'(a)')   ' https://doi.org/10.1016/j.ijplas.2014.02.006'
 
 !--------------------------------------------------------------------------------------------------
 ! allocate global fields

src/spectral_mech_Polarisation.f90

@@ -123,8 +123,9 @@ subroutine Polarisation_init
  character(len=1024) :: rankStr
  
  write(6,'(/,a)') ' <<<+-  DAMASK_spectral_solverPolarisation init  -+>>>'
- write(6,'(/,a)') ' Shanthraj et al., International Journal of Plasticity, 66:31–45, 2015'
+
- write(6,'(a,/)') ' https://doi.org/10.1016/j.ijplas.2014.02.006'
+ write(6,'(/,a)') ' Shanthraj et al., International Journal of Plasticity 66:31–45, 2015'
+ write(6,'(a)')   ' https://doi.org/10.1016/j.ijplas.2014.02.006'
 
 !--------------------------------------------------------------------------------------------------
 ! allocate global fields

src/spectral_thermal.f90

@@ -76,8 +76,9 @@ subroutine spectral_thermal_init
   PetscErrorCode :: ierr
 
   write(6,'(/,a)') ' <<<+-  spectral_thermal init  -+>>>'
-  write(6,'(/,a)') ' Shanthraj et al., Handbook of Mechanics of Materials, volume in press,'
+
-  write(6,'(/,a)') ' chapter Spectral Solvers for Crystal Plasticity and Multi-Physics Simulations. Springer, 2018'
+  write(6,'(/,a)') ' Shanthraj et al., Handbook of Mechanics of Materials, 2019'
+  write(6,'(a)')   ' https://doi.org/10.1007/978-981-10-6855-3_80'
  
 !--------------------------------------------------------------------------------------------------
 ! initialize solver specific parts of PETSc

src/spectral_utilities.f90

@@ -194,8 +194,15 @@ subroutine utilities_init()
    tensorSize = 9_C_INTPTR_T
 
  write(6,'(/,a)') ' <<<+-  spectral_utilities init  -+>>>'
- write(6,'(/,a)') ' Eisenlohr et al., International Journal of Plasticity, 46:37–53, 2013'
+
- write(6,'(a,/)') ' https://doi.org/10.1016/j.ijplas.2012.09.012'
+ write(6,'(/,a)') ' Eisenlohr et al., International Journal of Plasticity 46:37–53, 2013'
+ write(6,'(a)')   ' https://doi.org/10.1016/j.ijplas.2012.09.012'
+
+ write(6,'(/,a)') ' Shanthraj et al., International Journal of Plasticity 66:31–45, 2015'
+ write(6,'(a)')   ' https://doi.org/10.1016/j.ijplas.2014.02.006'
+
+ write(6,'(/,a)') ' Shanthraj et al., Handbook of Mechanics of Materials, 2019'
+ write(6,'(a)')   ' https://doi.org/10.1007/978-981-10-6855-3_80'
 
 !--------------------------------------------------------------------------------------------------
 ! set debugging parameters