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
@ -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)

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
@ -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