diff --git a/code/constitutive_titanmod.f90 b/code/constitutive_titanmod.f90 index ccb836f11..d7d945720 100644 --- a/code/constitutive_titanmod.f90 +++ b/code/constitutive_titanmod.f90 @@ -1,4 +1,4 @@ -!* $Id: constitutive_titanmod.f90 519 2010-03-24 08:17:27Z MPIE\f.roters $ +!* $Id$ MODULE constitutive_titanmod @@ -169,7 +169,7 @@ character(len=1024) line write(6,*) write(6,'(a20,a20,a12)') '<<<+- constitutive_',constitutive_titanmod_label,' init -+>>>' -write(6,*) '$Id: constitutive_titanmod.f90 519 2010-03-24 08:17:27Z MPIE\f.roters $' +write(6,*) '$Id$' write(6,*) maxNinstance = count(phase_constitution == constitutive_titanmod_label) diff --git a/code/crystallite.f90 b/code/crystallite.f90 index 230239510..d2a83b834 100644 --- a/code/crystallite.f90 +++ b/code/crystallite.f90 @@ -1734,16 +1734,16 @@ function crystallite_postResults(& c = c + 1_pInt case ('orientation') crystallite_postResults(c+1:c+4) = & - crystallite_orientation(:,g,i,e) ! grain orientation as quaternion + crystallite_orientation(:,g,i,e) ! grain orientation as quaternion c = c + 4_pInt case ('eulerangles') crystallite_postResults(c+1:c+3) = inDeg * & - math_QuaternionToEuler(crystallite_orientation(:,g,i,e)) ! grain orientation as Euler angles in degree + math_QuaternionToEuler(crystallite_orientation(:,g,i,e)) ! grain orientation as Euler angles in degree c = c + 3_pInt case ('grainrotation') crystallite_postResults(c+1:c+4) = & - math_QuaternionToAxisAngle(crystallite_rotation(1:4,g,i,e)) ! grain rotation away from initial orientation as axis-angle - crystallite_postResults(c+4) = inDeg * crystallite_postResults(c+4) ! angle in degree + math_QuaternionToAxisAngle(crystallite_rotation(1:4,g,i,e)) ! grain rotation away from initial orientation as axis-angle + crystallite_postResults(c+4) = inDeg * crystallite_postResults(c+4) ! angle in degree c = c + 4_pInt case ('defgrad','f') mySize = 9_pInt diff --git a/code/mpie_spectral_interface.f90 b/code/mpie_spectral_interface.f90 index c90e071c5..2c2d0a70f 100644 --- a/code/mpie_spectral_interface.f90 +++ b/code/mpie_spectral_interface.f90 @@ -1,4 +1,4 @@ -!* $Id: mpie_spectral_interface.f90 605 2010-07-07 09:10:54Z MPIE\m.diehl $ +!* $Id$ !******************************************************************** MODULE mpie_interface @@ -16,7 +16,7 @@ subroutine mpie_interface_init() write(6,*) write(6,*) '<<<+- mpie_spectral init -+>>>' - write(6,*) '$Id: mpie_spectral_interface.f90 605 2010-07-07 09:10:54Z MPIE\m.diehl $' + write(6,*) '$Id$' write(6,*) return