diff --git a/code/damage_brittle.f90 b/code/damage_brittle.f90 index ebf62bfe3..05537d218 100644 --- a/code/damage_brittle.f90 +++ b/code/damage_brittle.f90 @@ -1,5 +1,5 @@ !-------------------------------------------------------------------------------------------------- -! $Id: damage_brittle.f90 3210 2014-06-17 15:24:44Z MPIE\m.diehl $ +! $Id$ !-------------------------------------------------------------------------------------------------- !> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH !> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH @@ -106,7 +106,7 @@ subroutine damage_brittle_init(fileUnit) mainProcess: if (worldrank == 0) then write(6,'(/,a)') ' <<<+- damage_'//LOCAL_DAMAGE_BRITTLE_label//' init -+>>>' - write(6,'(a)') ' $Id: damage_brittle.f90 3210 2014-06-17 15:24:44Z MPIE\m.diehl $' + write(6,'(a)') ' $Id$' write(6,'(a15,a)') ' Current time: ',IO_timeStamp() #include "compilation_info.f90" endif mainProcess diff --git a/code/damage_ductile.f90 b/code/damage_ductile.f90 old mode 100755 new mode 100644 index e71f45c38..9ee245c91 --- a/code/damage_ductile.f90 +++ b/code/damage_ductile.f90 @@ -1,5 +1,5 @@ !-------------------------------------------------------------------------------------------------- -! $Id: damage_ductile.f90 3210 2014-06-17 15:24:44Z MPIE\m.diehl $ +! $Id$ !-------------------------------------------------------------------------------------------------- !> @author Luv Sharma, Max-Planck-Institut für Eisenforschung GmbH !> @author Pratheek Shanthraj, Max-Planck-Institut für Eisenforschung GmbH @@ -105,7 +105,7 @@ subroutine damage_ductile_init(fileUnit) mainProcess: if (worldrank == 0) then write(6,'(/,a)') ' <<<+- damage_'//LOCAL_DAMAGE_DUCTILE_LABEL//' init -+>>>' - write(6,'(a)') ' $Id: damage_ductile.f90 3210 2014-06-17 15:24:44Z MPIE\m.diehl $' + write(6,'(a)') ' $Id$' write(6,'(a15,a)') ' Current time: ',IO_timeStamp() #include "compilation_info.f90" endif mainProcess diff --git a/code/damage_gurson.f90 b/code/damage_gurson.f90 old mode 100755 new mode 100644 index 7fc899af2..112c54f85 --- a/code/damage_gurson.f90 +++ b/code/damage_gurson.f90 @@ -1,5 +1,5 @@ !-------------------------------------------------------------------------------------------------- -! $Id: damage_gurson.f90 3210 2014-06-17 15:24:44Z MPIE\m.diehl $ +! $Id$ !-------------------------------------------------------------------------------------------------- !> @author Luv Sharma, Max-Planck-Institut für Eisenforschung GmbH !> @author Pratheek Shanthraj, Max-Planck-Institut für Eisenforschung GmbH @@ -111,7 +111,7 @@ subroutine damage_gurson_init(fileUnit) mainProcess: if (worldrank == 0) then write(6,'(/,a)') ' <<<+- damage_'//LOCAL_DAMAGE_gurson_LABEL//' init -+>>>' - write(6,'(a)') ' $Id: damage_gurson.f90 3210 2014-06-17 15:24:44Z MPIE\m.diehl $' + write(6,'(a)') ' $Id$' write(6,'(a15,a)') ' Current time: ',IO_timeStamp() #include "compilation_info.f90" endif mainProcess diff --git a/code/damage_none.f90 b/code/damage_none.f90 index 49fe62fab..157c122e5 100644 --- a/code/damage_none.f90 +++ b/code/damage_none.f90 @@ -1,5 +1,5 @@ !-------------------------------------------------------------------------------------------------- -! $Id: damage_none.f90 3148 2014-05-27 14:46:03Z MPIE\m.diehl $ +! $Id$ !-------------------------------------------------------------------------------------------------- !> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH !> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH @@ -59,7 +59,7 @@ subroutine damage_none_init(fileUnit) mainProcess: if (worldrank == 0) then write(6,'(/,a)') ' <<<+- damage_'//LOCAL_DAMAGE_NONE_label//' init -+>>>' - write(6,'(a)') ' $Id: damage_none.f90 3148 2014-05-27 14:46:03Z MPIE\m.diehl $' + write(6,'(a)') ' $Id$' write(6,'(a15,a)') ' Current time: ',IO_timeStamp() #include "compilation_info.f90" endif mainProcess diff --git a/code/thermal_adiabatic.f90 b/code/thermal_adiabatic.f90 index c600fb21b..703981a99 100644 --- a/code/thermal_adiabatic.f90 +++ b/code/thermal_adiabatic.f90 @@ -1,5 +1,5 @@ !-------------------------------------------------------------------------------------------------- -! $Id: thermal_adiabatic.f90 3210 2014-06-17 15:24:44Z MPIE\m.diehl $ +! $Id$ !-------------------------------------------------------------------------------------------------- !> @author Pratheek Shanthraj, Max-Planck-Institut für Eisenforschung GmbH !> @brief material subroutine incoprorating local heat generation due to plastic dissipation @@ -102,7 +102,7 @@ subroutine thermal_adiabatic_init(fileUnit,temperature_init) mainProcess: if (worldrank == 0) then write(6,'(/,a)') ' <<<+- thermal_'//LOCAL_THERMAL_ADIABATIC_label//' init -+>>>' - write(6,'(a)') ' $Id: thermal_adiabatic.f90 3210 2014-06-17 15:24:44Z MPIE\m.diehl $' + write(6,'(a)') ' $Id$' write(6,'(a15,a)') ' Current time: ',IO_timeStamp() #include "compilation_info.f90" endif mainProcess diff --git a/code/thermal_isothermal.f90 b/code/thermal_isothermal.f90 index 55d3cf64c..12234c264 100644 --- a/code/thermal_isothermal.f90 +++ b/code/thermal_isothermal.f90 @@ -1,5 +1,5 @@ !-------------------------------------------------------------------------------------------------- -! $Id: thermal_isothermal.f90 3148 2014-05-27 14:46:03Z MPIE\m.diehl $ +! $Id$ !-------------------------------------------------------------------------------------------------- !> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH !> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH @@ -64,7 +64,7 @@ subroutine thermal_isothermal_init(fileUnit,temperature_init) mainProcess: if (worldrank == 0) then write(6,'(/,a)') ' <<<+- thermal_'//LOCAL_THERMAL_ISOTHERMAL_label//' init -+>>>' - write(6,'(a)') ' $Id: thermal_isothermal.f90 3148 2014-05-27 14:46:03Z MPIE\m.diehl $' + write(6,'(a)') ' $Id$' write(6,'(a15,a)') ' Current time: ',IO_timeStamp() #include "compilation_info.f90" endif mainProcess diff --git a/code/vacancy_constant.f90 b/code/vacancy_constant.f90 index 806b0934e..a1d973159 100644 --- a/code/vacancy_constant.f90 +++ b/code/vacancy_constant.f90 @@ -1,5 +1,5 @@ !-------------------------------------------------------------------------------------------------- -! $Id: vacancy_constant.f90 3148 2014-05-27 14:46:03Z MPIE\m.diehl $ +! $Id$ !-------------------------------------------------------------------------------------------------- !> @author Pratheek Shanthraj, Max-Planck-Institut für Eisenforschung GmbH !> @brief material subroutine for constant vacancy concentration @@ -58,7 +58,7 @@ subroutine vacancy_constant_init(fileUnit) mainProcess: if (worldrank == 0) then write(6,'(/,a)') ' <<<+- vacancy_'//LOCAL_VACANCY_CONSTANT_label//' init -+>>>' - write(6,'(a)') ' $Id: vacancy_constant.f90 3148 2014-05-27 14:46:03Z MPIE\m.diehl $' + write(6,'(a)') ' $Id$' write(6,'(a15,a)') ' Current time: ',IO_timeStamp() #include "compilation_info.f90" endif mainProcess diff --git a/code/vacancy_generation.f90 b/code/vacancy_generation.f90 index 945da160b..e040ffead 100644 --- a/code/vacancy_generation.f90 +++ b/code/vacancy_generation.f90 @@ -1,5 +1,5 @@ !-------------------------------------------------------------------------------------------------- -! $Id: vacancy_generation.f90 3210 2014-06-17 15:24:44Z MPIE\m.diehl $ +! $Id$ !-------------------------------------------------------------------------------------------------- !> @author Pratheek Shanthraj, Max-Planck-Institut für Eisenforschung GmbH !> @brief material subroutine for plastically generated vacancy concentrations @@ -109,7 +109,7 @@ subroutine vacancy_generation_init(fileUnit) mainProcess: if (worldrank == 0) then write(6,'(/,a)') ' <<<+- vacancy_'//LOCAL_VACANCY_GENERATION_label//' init -+>>>' - write(6,'(a)') ' $Id: vacancy_generation.f90 3210 2014-06-17 15:24:44Z MPIE\m.diehl $' + write(6,'(a)') ' $Id$' write(6,'(a15,a)') ' Current time: ',IO_timeStamp() #include "compilation_info.f90" endif mainProcess