From fc3abd4f399b6220eb57b458052a4514270dfe14 Mon Sep 17 00:00:00 2001
From: Yi-Chin Yang <yc.yang@mpie.de>
Date: Tue, 17 Apr 2018 15:22:18 +0200
Subject: [PATCH] References for spectral solvers

---
 src/spectral_interface.f90         | 2 +-
 src/spectral_mech_AL.f90           | 6 +++---
 src/spectral_mech_Basic.f90        | 6 +++---
 src/spectral_mech_Polarisation.f90 | 6 +++---
 src/spectral_thermal.f90           | 4 ++--
 5 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/src/spectral_interface.f90 b/src/spectral_interface.f90
index 677ab8220..ba644ea9c 100644
--- a/src/spectral_interface.f90
+++ b/src/spectral_interface.f90
@@ -115,7 +115,7 @@ subroutine DAMASK_interface_init()
 
  call date_and_time(values = dateAndTime)
  write(6,'(/,a)') ' <<<+-  DAMASK_spectral  -+>>>'
- write(6,'(/,a)')   ' Roters et. al, Computational Materials Science, 2018'
+ write(6,'(/,a)') ' Roters et. al, Computational Materials Science, 2018'
  write(6,'(/,a)')              ' Version: '//DAMASKVERSION
  write(6,'(a,2(i2.2,a),i4.4)') ' Date:    ',dateAndTime(3),'/',&
                                             dateAndTime(2),'/',&
diff --git a/src/spectral_mech_AL.f90 b/src/spectral_mech_AL.f90
index 91c93bb53..86e38c81c 100644
--- a/src/spectral_mech_AL.f90
+++ b/src/spectral_mech_AL.f90
@@ -147,9 +147,9 @@ 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()
+ 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 82f2576d9..080874ec1 100644
--- a/src/spectral_mech_Basic.f90
+++ b/src/spectral_mech_Basic.f90
@@ -135,9 +135,9 @@ 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()
+ 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 a3b1e9f7e..cafddd611 100644
--- a/src/spectral_mech_Polarisation.f90
+++ b/src/spectral_mech_Polarisation.f90
@@ -145,9 +145,9 @@ 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()
+ 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 a3dd468a4..51805cc4b 100644
--- a/src/spectral_thermal.f90
+++ b/src/spectral_thermal.f90
@@ -103,9 +103,9 @@ 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)') ' 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()
+   write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
 #include "compilation_info.f90"
  endif mainProcess