extended output string length for init msg
This commit is contained in:
parent
a36951a6ac
commit
35cebfb132
|
@ -60,7 +60,7 @@ subroutine homogenization_RGC_init(&
|
|||
character(len=1024) line
|
||||
|
||||
write(6,*)
|
||||
write(6,'(a20,a20,a12)') '<<<+- homogenization',homogenization_RGC_label,' init -+>>>'
|
||||
write(6,'(a21,a20,a12)') '<<<+- homogenization',homogenization_RGC_label,' init -+>>>'
|
||||
write(6,*) '$Id$'
|
||||
write(6,*)
|
||||
|
||||
|
|
|
@ -55,7 +55,7 @@ subroutine homogenization_isostrain_init(&
|
|||
character(len=1024) line
|
||||
|
||||
write(6,*)
|
||||
write(6,'(a20,a20,a12)') '<<<+- homogenization',homogenization_isostrain_label,' init -+>>>'
|
||||
write(6,'(a21,a20,a12)') '<<<+- homogenization',homogenization_isostrain_label,' init -+>>>'
|
||||
write(6,*) '$Id$'
|
||||
write(6,*)
|
||||
|
||||
|
|
Loading…
Reference in New Issue