From 451e9f245a7ed7a478a01b1d88d73ee8933c8c0f Mon Sep 17 00:00:00 2001 From: Sharan Roongta Date: Wed, 18 Apr 2018 15:01:03 +0200 Subject: [PATCH] Removing some typos in citations --- src/DAMASK_abaqus_exp.f | 2 +- src/DAMASK_abaqus_std.f | 2 +- src/DAMASK_marc.f90 | 2 +- src/homogenization_RGC.f90 | 8 ++++---- src/plastic_isotropic.f90 | 2 ++ src/spectral_mech_AL.f90 | 4 ++-- src/spectral_mech_Basic.f90 | 4 ++-- src/spectral_mech_Polarisation.f90 | 4 ++-- src/spectral_thermal.f90 | 4 ++-- src/spectral_utilities.f90 | 4 ++-- 10 files changed, 19 insertions(+), 17 deletions(-) diff --git a/src/DAMASK_abaqus_exp.f b/src/DAMASK_abaqus_exp.f index dc755f2e8..a8a3a7496 100644 --- a/src/DAMASK_abaqus_exp.f +++ b/src/DAMASK_abaqus_exp.f @@ -37,7 +37,7 @@ subroutine DAMASK_interface_init dateAndTime ! type default integer call date_and_time(values = dateAndTime) write(6,'(/,a)') ' <<<+- DAMASK_abaqus_exp -+>>>' - 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/DAMASK_abaqus_std.f b/src/DAMASK_abaqus_std.f index cf60781ce..fafe339f3 100644 --- a/src/DAMASK_abaqus_std.f +++ b/src/DAMASK_abaqus_std.f @@ -37,7 +37,7 @@ subroutine DAMASK_interface_init dateAndTime ! type default integer call date_and_time(values = dateAndTime) write(6,'(/,a)') ' <<<+- DAMASK_abaqus_std -+>>>' - 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/DAMASK_marc.f90 b/src/DAMASK_marc.f90 index fe636dc52..034aaf6f2 100644 --- a/src/DAMASK_marc.f90 +++ b/src/DAMASK_marc.f90 @@ -54,7 +54,7 @@ subroutine DAMASK_interface_init call date_and_time(values = dateAndTime) write(6,'(/,a)') ' <<<+- DAMASK_Marc -+>>>' - 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/homogenization_RGC.f90 b/src/homogenization_RGC.f90 index acf8f5a0f..6595b4093 100644 --- a/src/homogenization_RGC.f90 +++ b/src/homogenization_RGC.f90 @@ -116,10 +116,10 @@ subroutine homogenization_RGC_init(fileUnit) line = '' 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)') ' 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,'(/,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)') ' https://doi.org/10.1088/0965-0393/18/1/015006' write(6,'(a15,a)') ' Current time: ',IO_timeStamp() #include "compilation_info.f90" diff --git a/src/plastic_isotropic.f90 b/src/plastic_isotropic.f90 index 2ba1238b2..0bd207c63 100644 --- a/src/plastic_isotropic.f90 +++ b/src/plastic_isotropic.f90 @@ -150,6 +150,8 @@ subroutine plastic_isotropic_init(fileUnit) integer(pInt) :: NipcMyPhase write(6,'(/,a)') ' <<<+- constitutive_'//PLASTICITY_ISOTROPIC_label//' init -+>>>' + write(6,'(/,a)') ' Ma et.al, Computational Materials Science, 109:323–329, 2015' + write(6,'(/,a)') ' https://doi.org/10.1016/j.commatsci.2015.07.041' 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 86e38c81c..be950e6d8 100644 --- a/src/spectral_mech_AL.f90 +++ b/src/spectral_mech_AL.f90 @@ -147,8 +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,'(/,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,'(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 080874ec1..c0e45eda9 100644 --- a/src/spectral_mech_Basic.f90 +++ b/src/spectral_mech_Basic.f90 @@ -135,8 +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,'(/,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,'(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 cafddd611..89fd8a6e0 100644 --- a/src/spectral_mech_Polarisation.f90 +++ b/src/spectral_mech_Polarisation.f90 @@ -145,8 +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,'(/,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,'(a15,a)') ' Current time: ',IO_timeStamp() #include "compilation_info.f90" diff --git a/src/spectral_thermal.f90 b/src/spectral_thermal.f90 index b021f0c48..14207d6f4 100644 --- a/src/spectral_thermal.f90 +++ b/src/spectral_thermal.f90 @@ -103,8 +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,'(/,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 c5497c613..db54f0361 100644 --- a/src/spectral_utilities.f90 +++ b/src/spectral_utilities.f90 @@ -216,8 +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,'(/,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,'(a15,a)') ' Current time: ',IO_timeStamp() #include "compilation_info.f90"