From 86683674c08941b237ef624577c4dd9b615479a5 Mon Sep 17 00:00:00 2001
From: Yi-Chin Yang <yc.yang@mpie.de>
Date: Tue, 17 Apr 2018 14:52:50 +0200
Subject: [PATCH] mod

---
 src/DAMASK_spectral.f90            | 1 +
 src/homogenization_RGC.f90         | 6 ++++--
 src/spectral_damage.f90            | 2 ++
 src/spectral_mech_AL.f90           | 2 ++
 src/spectral_mech_Basic.f90        | 2 ++
 src/spectral_mech_Polarisation.f90 | 2 ++
 src/spectral_thermal.f90           | 2 ++
 src/spectral_utilities.f90         | 2 ++
 8 files changed, 17 insertions(+), 2 deletions(-)
 mode change 100755 => 100644 src/homogenization_RGC.f90

diff --git a/src/DAMASK_spectral.f90 b/src/DAMASK_spectral.f90
index 068aebbc6..c68511cb7 100644
--- a/src/DAMASK_spectral.f90
+++ b/src/DAMASK_spectral.f90
@@ -161,6 +161,7 @@ program DAMASK_spectral
 ! init DAMASK (all modules)
  call CPFEM_initAll(el = 1_pInt, ip = 1_pInt)
  write(6,'(/,a)')   ' <<<+-  DAMASK_spectral init  -+>>>'
+ write(6,'(/,a)')   ' Roters et. al, Computational Materials Science, 2018'
  write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
 #include "compilation_info.f90"
 
diff --git a/src/homogenization_RGC.f90 b/src/homogenization_RGC.f90
old mode 100755
new mode 100644
index 6cf584a53..0d84af38b
--- a/src/homogenization_RGC.f90
+++ b/src/homogenization_RGC.f90
@@ -116,8 +116,10 @@ subroutine homogenization_RGC_init(fileUnit)
    line = ''
  
  write(6,'(/,a)')   ' <<<+-  homogenization_'//HOMOGENIZATION_RGC_label//' init  -+>>>'
- write(6,'(/,a)')   ' Tjahjanto et. al, Modelling and Simulation in Materials Science and Engineering, 18:015006, 2010'
- write(6,'(/,a)')	' doi: 10.1088/0965-0393/18/1/015006.'
+ write(6,'(/,a)')   ' Tjahjanto et. al, International Journal of Material Forming, 2(1):939–942, 2009 '
+ write(6,'(/,a)')	' doi: 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)')	' doi: 10.1088/0965-0393/18/1/015006 '
  write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
 #include "compilation_info.f90"
 
diff --git a/src/spectral_damage.f90 b/src/spectral_damage.f90
index 1ac3c4c73..1618f854a 100644
--- a/src/spectral_damage.f90
+++ b/src/spectral_damage.f90
@@ -103,6 +103,8 @@ subroutine spectral_damage_init()
    SNESVISetVariableBounds
 
  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,'(a15,a)')   ' Current time: ',IO_timeStamp()
 #include "compilation_info.f90"
  
diff --git a/src/spectral_mech_AL.f90 b/src/spectral_mech_AL.f90
index 27a1def0c..91c93bb53 100644
--- a/src/spectral_mech_AL.f90
+++ b/src/spectral_mech_AL.f90
@@ -147,6 +147,8 @@ subroutine AL_init
    SNESSetFromOptions
    
  write(6,'(/,a)') ' <<<+-  DAMASK_spectral_solverAL init  -+>>>'
+ write(6,'(/,a)')   ' Shanthraj et. al, International Journal of Plasticity, 66:31–45, 2015 '
+ write(6,'(/,a)')	' doi: 10.1016/j.ijplas.2014.02.006 '
  write(6,'(a15,a)')   ' Current time: ',IO_timeStamp()
 #include "compilation_info.f90"
 
diff --git a/src/spectral_mech_Basic.f90 b/src/spectral_mech_Basic.f90
index 171eeacad..82f2576d9 100644
--- a/src/spectral_mech_Basic.f90
+++ b/src/spectral_mech_Basic.f90
@@ -135,6 +135,8 @@ subroutine basicPETSc_init
    SNESSetFromOptions
    
  write(6,'(/,a)') ' <<<+-  DAMASK_spectral_solverBasicPETSc init  -+>>>'
+ write(6,'(/,a)')   ' Shanthraj et. al, International Journal of Plasticity, 66:31–45, 2015 '
+ write(6,'(/,a)')	' doi: 10.1016/j.ijplas.2014.02.006 '
  write(6,'(a15,a)')   ' Current time: ',IO_timeStamp()
 #include "compilation_info.f90"
 
diff --git a/src/spectral_mech_Polarisation.f90 b/src/spectral_mech_Polarisation.f90
index acd713c70..a3b1e9f7e 100644
--- a/src/spectral_mech_Polarisation.f90
+++ b/src/spectral_mech_Polarisation.f90
@@ -145,6 +145,8 @@ subroutine Polarisation_init
    SNESSetFromOptions
    
  write(6,'(/,a)') ' <<<+-  DAMASK_spectral_solverPolarisation init  -+>>>'
+ write(6,'(/,a)')   ' Shanthraj et. al, International Journal of Plasticity, 66:31–45, 2015 '
+ write(6,'(/,a)')	' doi: 10.1016/j.ijplas.2014.02.006 '
  write(6,'(a15,a)')   ' Current time: ',IO_timeStamp()
 #include "compilation_info.f90"
 
diff --git a/src/spectral_thermal.f90 b/src/spectral_thermal.f90
index f89184543..a3dd468a4 100644
--- a/src/spectral_thermal.f90
+++ b/src/spectral_thermal.f90
@@ -103,6 +103,8 @@ subroutine spectral_thermal_init
    
  mainProcess: if (worldrank == 0_pInt) then
    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,'(a15,a)')   ' Current time: ',IO_timeStamp()
 #include "compilation_info.f90"
  endif mainProcess
diff --git a/src/spectral_utilities.f90 b/src/spectral_utilities.f90
index e3383f3d1..18e628bd4 100644
--- a/src/spectral_utilities.f90
+++ b/src/spectral_utilities.f90
@@ -216,6 +216,8 @@ 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)')	' doi: 10.1016/j.ijplas.2012.09.012 '
  write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
 #include "compilation_info.f90"