crystallite: polishing
rest: added "$ID" and line ending settings...
This commit is contained in:
parent
a467fb4ae3
commit
83a921eec2
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue