crystallite: polishing

rest: added "$ID" and line ending settings...
This commit is contained in:
Philip Eisenlohr 2010-09-23 08:05:50 +00:00
parent a467fb4ae3
commit 83a921eec2
3 changed files with 8 additions and 8 deletions

View File

@ -1,4 +1,4 @@
!* $Id: constitutive_titanmod.f90 519 2010-03-24 08:17:27Z MPIE\f.roters $ !* $Id$
MODULE constitutive_titanmod MODULE constitutive_titanmod
@ -169,7 +169,7 @@ character(len=1024) line
write(6,*) write(6,*)
write(6,'(a20,a20,a12)') '<<<+- constitutive_',constitutive_titanmod_label,' init -+>>>' 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,*) write(6,*)
maxNinstance = count(phase_constitution == constitutive_titanmod_label) maxNinstance = count(phase_constitution == constitutive_titanmod_label)

View File

@ -1734,16 +1734,16 @@ function crystallite_postResults(&
c = c + 1_pInt c = c + 1_pInt
case ('orientation') case ('orientation')
crystallite_postResults(c+1:c+4) = & 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 c = c + 4_pInt
case ('eulerangles') case ('eulerangles')
crystallite_postResults(c+1:c+3) = inDeg * & 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 c = c + 3_pInt
case ('grainrotation') case ('grainrotation')
crystallite_postResults(c+1:c+4) = & crystallite_postResults(c+1:c+4) = &
math_QuaternionToAxisAngle(crystallite_rotation(1:4,g,i,e)) ! grain rotation away from initial orientation as axis-angle 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 crystallite_postResults(c+4) = inDeg * crystallite_postResults(c+4) ! angle in degree
c = c + 4_pInt c = c + 4_pInt
case ('defgrad','f') case ('defgrad','f')
mySize = 9_pInt mySize = 9_pInt

View File

@ -1,4 +1,4 @@
!* $Id: mpie_spectral_interface.f90 605 2010-07-07 09:10:54Z MPIE\m.diehl $ !* $Id$
!******************************************************************** !********************************************************************
MODULE mpie_interface MODULE mpie_interface
@ -16,7 +16,7 @@ subroutine mpie_interface_init()
write(6,*) write(6,*)
write(6,*) '<<<+- mpie_spectral init -+>>>' 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,*) write(6,*)
return return